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GLOGAL KROSCAN, UPDLE, EO BASE, CHOORE, BEEF, PARP 


EXTERNAL NEL 


=X YT 3 
EXTERNAL & RR, EXFRN, RREAK? FUX FOX ; 
EX TERMAL ‘ 3 
EXT i 
li 


PIPoTr 
ERNAL ARRAY, STEM 


STRANSLATE TABLE, EY FO 


KTAB MST 
POSITIONS O TO 38 (CAPS SH 


Pere: 


= 
nt 
= 
o 

. 


wAAD 


OS DEF E 
OOOg, HEF E 
OOOs iz 


SUNS 


m= 

hm 
fai} Sar bay bey tes desta) 
a D 


a, oe RS Te, | 


BEF i 
Et 


LPNCLSCOSue oe 


OoLlea 
OOLt 
Oop 
oOoLs 
on14 
Oops 
WL & 
i017 
On bes 


sSYMES SHIFT? CODE FOR “SET E MODE" 


ON 


| Ob $ NEWLINE 


roe 
é 


KTARZ: S TRANSLATE PASE CONE, FOR LETTER TO UNSHIFTED & MGQDE CHAR 


Ti be ALTE REAL 
it os BIN 


ITU D 
in 


ta. 


i 


- 
— 
t 


80 we ve wee we ee oP we we es 


HPHhSLHSSH 


-; 
TL ee 


E ie TK VAL 
BEFR OP_TRALEN 


Teo get begs rc a es teete : PO Be me 


T/i Dit see = CAN © ALLS ES/IP ESTOS PAGE 2 

Lit Okt CODE M STMT SOURCE STATEMENT . - ASM S.% 

DEEE OF _TE+USR WERK 
FI F 


{. 
INKEYS 
FE a 


Zar 


é 


a 


80 ee cb ee sap 000 ain es G8 tah gD WP we wos 
05 


PEER GP LTEASTR 
DEE OP LTE ALN 
KTAES: oe PTRANSLAT 


SINT aW) fab 


RASE CORE FOR LETTER TO SHIFTED E MONE CHAR 


~ 
LeELloMmMonisSm N<KE<: 


4 TE 


Quad? Tat NEFE FOTO +3 BRIGHT 

O43 DA DEFG F ou tk +7 BACK. 

Woag4 bay WF ES A 
Ova 7 ARCTAN 


ode 7b 
OO47 7U 


was es ARC 
oo04> EF IM . 


OAR AE 


— 
sy 


HEEB Al ATER 


BWOoZs 


Sat 


IFA 
DEE Et FOTO 42 
DEFER OF TE+ACS 
BEFE FGTCK 
TEPER YES 
DEFB BEEFTE 


ETAEAs ron DIGIT TO CARS SHIFT KO OOR L MODE 


PUhme AT N<xEccam 
on 


ee, 


t 


We ene we we wt we we we 
n 


eats 4T 
ENTER GRAPHICS NODE 
5 Conk FOR LETTER To SYMBOLS SHIFT 


KTAES: 


0069 
OOAA 


en ee wt ee we we oe! 


TNMAAGIMDM 


HEFE TO” 


1/0 DRIVERS ; eae 11/23/71932..7TCC PAGE = 3 
Loc OBIS CODE M STMT SOURCE S71 ASM. S. 9 


“THEM 
Ay a: ° 


ah a fe ft eet 
NEP et Pe 


ee esis a A 


re sa Br PY 


rh) ~ 
eo 

Q <= 

RK 

$ MOT 

T 

oon 


( ‘END SIGN 
ANDO 


28 we we Se we are 08 we we we wt we we 2 we we we we we 


ETABG: RASE CODE FOR LUGITS © TO 9 TOE MODE SYMBOLS SHIFT 


St we we we we oe se ot we we 
NNN Slo OT NCES 


Er PI TK 


~ 


I/O DRIVERS 
Lor 


OAs 
QOOA4Y 
OOS 
O07 
Oey 
Cn, AE 
Qual 
OwAL 
OORE 
OOS 


cope 
OoOL7 
COVES? 


= RSCAN 11/23/1982. 700 PAGE 4 
ObS CODE M STMT SOURCE STATEMENT. ASH Sf. 9 
S43 #E JECT 
244 
S45 KOSCANE EVEGART! 
S46 RE ne THO KEYS 
4 SHIFT, E=CHAR IF 2 


E TE NANE 
ge tee ieee POSTT ION 


Sse oon oe on on 
a 


LO bs a+ 
Li Tite» = 1 


LI Bt, (OF EH. SHL. S) % 
" HERE re an Ad kK CRO» Oo TO 7) 
1c AF ATE 1, BIT R OF B ZERO, Cher oy BITS ee BH 
5 Ae THAN 2 KEYS FOUND SO FAR ELSE 
i FY FOUND, E=-1 TF ne REVS FOUND YET 
5 WF ONGST RECENT, L=Ss74-R 
bes A, (0) T UNLESS KEY IN COL C OF WHR I5 PRESSED 
FL % = © Jo 4, BITS & To 7 7 RUBBES iH 
ANT 1FH SET IFF KEY IN coLumY ¢ PRESSED 
JR Z LESS PREYS IM THIS RoW 
LO HLA 
LO AaL Ms : 
sHERE WITH A =_EEY FOSN +.°8, 10 OF H SET TIFF PRESSED, OTHER 
ine Hy BITS OF H FOR LATER COLUMNS, BCDEL AS AT LKS2 
iy 4 
RET NZ 31F NORE THAN THO KEYS ALTOGETHER 
oP : SA c= POSN CODE OF KEY BEING CONSIDERED 
i SSEARCH FOR THE KEY THAT IS PRESSED 
sors PREVIOUS. EEY (OR -1 TF NONE) 
$E 2] NEW KE 
31F THERE Ts ANOTHER IN THES ROW 
70) REAL NEXT RoW 
SIF AT NOST ONE KEY 
SIF CAFS SHIFT AND ONE OTHER 
SIF SYNEMOLS SHIFT Ant OME OF FON.M 
7 HERE IF, OG 1s A CHARACTER KEY: SWAP Db AND E 
S2N0 READ OF THE TWO KEYS NOW IN Tf 
iNB CANST BE CAPS SHIFT BECAUSE I7°S READ FIRST 
sWITH NZ IF Thin CHAR EEYS, 2 IF SYMBS SHIFT AND ONE 
- ee ¥ Boe - ) v7 aap 7c ye WORN GT, 


2a gh 


1/0 DRIVERS 


Lor 


OES 
i esi 
HE 


OOD 


OLY 


QOS 
Oons 
COE 
OLA 


OOFE 
Gros 
O10 
OLS 
OL04 
Qg1roa 


OLOE 
Oo1dar 
QYoe 
OLGF 
O110 
Old 
114 
Olis 
O114 


YE CODE M STMT 


“Oval, 
Lid 
21005C 


ESCAN 11/23/1782 700 PAGE 5 
uv 


SOURCE STATEMENT ASM 8.5 
REJECT 
UPDILKs SUPDATE STATE GF KEVECARD v. 
. J SHOULD BE CALLED ONCE EVERY 2a MSEC 
coe — CAN 2 
NET ON VIF TWO OR MORE KEYS PRESSED 
Ni Hs ksTATE ‘ 
LUK23 BIT 7, (HL) : 
Wie LURKS 3IF NG KEY STORED 
DEE CAL) : fELSE DECREMENT DEEGUNCE COMNT 
REC HL : : 
RONG LK . . 
‘ies tees peep S7F DEBOUNCE COUNT EXPIRED, CLEAR GUT KEYSTORE 
UK 33 a i 
EK | fit )MSTATE+4 
OR NZ» Luk? 760 00 OTHER KEYSTORE” 


3 LUKE 


LUKS7 3 


LUIZ 


iy PROCESS CURRENT EEY 
CALL K_BAS 


Rb Hs KE : 
oh iIF FRESENT KEY 15 SAME AS IN 1ST KEYSTORE 
JK sDITTO ZNO KEYSTORE 

xc IF 2NO KEYSTORE EMPTY 

Re sIF NEITHER KEYSTORE 1s EMPTY 


ee to INSERT FEY CBASE CONE A, SHIFT &) IN KEYSTORE TO 
WHICH HL POINTS ad 
LD ELA 3 
LO (HL) At 
TNC HL 
LO (HL), DEBDEL 
ING HL 
LO A,» (REPEL) 
LD CHLOLA 
{N= HL 
LL, C1Y+None-Y) 
PUSH HL 


ae A 
T. CLY+FLAGS-Y) 


SEN, WITH HL = KSTATE OR KSTATE+4 


ene TF FEY WAS ALREADY PRE 
AS APPROPRIATE 


INC HL : ‘ 
Lh (HE) » DEBREL SRESET DEBOUNCE COUNT 
Ne 


KET ee SUNLESS TIME FOR IT TO REPEAT 
LA. SRESET REPEAT COUNT IF SO 
) SFICK. UP CHAR : 


1/0 DRIVERS CAN 11/23/1982. 700 PAGE 4 
LO OBI CODE M STNT SOURCE ATEMENT ASM S.o 
O117 1SEA ree JR LUES7 
. 655 : F 
657 KOBASE: SFIND BASE CODE FOR KEY nm 
640 sENTER WITH OF AS PROVIDED BY KUSCAN 
G&A sSETS NOUIF NG CHAR KEY ELSE CARRY & A = CHAR CODE 
E42 PRESERVES CE, COPIES OG INTO B, SETS D=0 
Z 443 LO BLE 
1é0 424 Co oa ~ 
7 64S LO ME 
"EQ 666 CP 3S 
( GET RET ONC “STF NOLEEY OR ONLY CAPS ee 
= bi GE3 CP 24 . 
200. 49 RK ONZ, LU 4 SIF A CHAR KEY 
EZ: 7 670 BIT 7, tHERE WITH NC IF a ea SHIFT & NO CHAR KEY 
oO &71 RET NZ SUNLESS CARS SHIRT ¢ 
210000 KR &72 LUR4: » LO HL KTARL 
ly .&73 ADD HL, DE 
7E &74 LOA, CHL) 
37 475 SCF 
“ye 476 ET 


1/0. DRIVERS KSICAN AA/S3/1R 82700 PAGE 7 


SBI CODE M STMT SQURCE STATEMENT ts ASM 3.97 

#EJECT 

CHCODE s SA ts SIE FOR KEY WITH BASE COME E JN SHIFT B a ‘7 = 
3 Ni = SYMBOLS, 39 = CAFS) MODE © (oO = KOR L E, 
3 2 (THD BOL DING A COPY OF FLAGS THAT LIST INGUITS HES 
3 K IF REQUIRED 
3; BASE * ARE pists Sa UPPER CASE LETTERS, SPACE, NEWLINE, 
3 AN E MOnbe 


-$HERE IF A LETTER 
RK S7F & GR OL None 
VIF_E MODE 
’ ALL A; aE ti SHERE TF G MOnE ' 
! RET i 
K Lots: a ni Gees ar SHERE IF A LETTER IN E MODE 
> d ; 
RK Rca! { 2 i : i é 
LOCS4: Li Lod At (HLA) & KETURN 
AND HL, DE 
LI a, CHL) 
RET 
K WS LCs Sees RI GRAS AY’ $HERE IF A LETTER IN EK OR L MODE 
O, Ft : 
ve JAK Z,LOCS4 GIF SYMBOLS SHIFT 
i BIT LMONE, D 
7a JR Z,LeCaS z1 
7OS BIT CAPS Ly (TY+EL 
7Oe § S LOCK SET 
710 Be 
711 -T NZ 3 SHIFT PRESS 
i. 712 N AL ZOM aes | TRE LOWER ¢ 7 
ait BE si3 BANS 
OS ae LOC4H&: A, OASH SHERE TO CONVERT To KEYWwoRG 
TN? . 
71S LOS ? 
7A SIF OR NEWLINE OR “SET E Mane” 
720 SHERE TF OYGIT ‘ 
RO 721 SIF K OOR lL Mone 
722 7IF G MODE: 
KR 723 “0” 
‘724 
7 31F SYMBOLS SHIFT 
sHERE FF O-7 IN 4 NODE: CONVERT TO “SET FG COLOUR’ CODE 
SMIET * ~~ 
INVERT TO “SET BACKGROUND COLOUR: 
S SMLFT 
et, A= “S° oF “9° TF € MODE, UNSHIFTED ok CAPS 
OL7F Oy 73h 
O180 is 737 31F UNBRIGHT OR BRIGHT CUNSHIFTED) 


‘PAGE 8 


1/Q_ DRIVERS KSCAN 
Loc Oi CODE M STMT SOURCE STATEMENT ASM 3.9 
738 aT FS 
ON No 
“ERROR IN STYKC+L 
VE, 
739 ALL Ay STY_KE-LOL_KE SCOINVERT TO UNFLASH OR FLASH (SHIFTED) 
741 
R742 LOC7# LD WL RTABS-"O* GHERE IF DIGIT IN G MOE 
743 ovaee —_ 
744 JR 7 LeCa4 
745 ee roe 
746 A Zo LOC34 eee 
747 AND 7 SHERE IF DIGITS 1 TO 8 IN G MODE 
745 ALL Ay Gor FCONVERT TO MISAICE 81H TO 87H AND 80H 
749 ING B 
750 RET 7Z F1F NO SMIET 
7al XOR GFH SELSE CONVERT i) INVERSE 
752 RET 
754 Lets: ING EB SHERE IE TIGIT IN KOR L Mone 
7% RET 2 +1F NG SHIFT ; 
7 HIT Sof #7 TF SYMBOLS SHIFT, NZ IF CAPS 
R 2 LD HL RTAB4~“O" FHERE WITH A= BASE CODE, NZ IF CAPS ELSE ‘SYMBOLS 
: Cn 
73 SUE LOH HCONVERT TO SYMBOL 
760 Chest ‘ 
761. JR Z.LOCse 
feos i ae 
765 RET NZ 
764 ti A,7_¢ 
O1AL = BE40 767 LOCSa: - LD A,“e- SHIFT 2°18 °@* INSTEAD GF <"- 
OLAF ES 743 RET 


Loubs PEAKER ane ESCAN AI/23/1982_ 700 PAGE o 
Low HI CODE M STNT SOURCE STATEMENT ASM S.% 
352 tHEADING LOUDSFEAKER 
q 
771) PARFs ape oer eaeee CYCLES OF A TONE WITH FERION GN+236 TH SN+246 |, 
772 TATES OR C14N+4721/7 To CI4N+4927/7 MICROSECONDS 
773 FENTER: eye HL=N \ 
: , 774 SSMASHES IX a 
O1LBO FS 775 DI ak ¥ : 
776 pH HERE DISABLE NMI“S 
OreL 777 LO AL . 
773 SAL : oe 
773 SRL L sl t= CON/4] MOD 443 
730 ~ CPL ‘ : 
731 AND 3 : 
Jie Lt cA 
Oe Lb Bo SBC t= 3.- CN Mon 4) 
RK 7 LO TX, LER 
7 , AL TX, Be 
g LI A» CEGRDCR > 


pve 7. SHL. BACK & 
RRA 


OR é tSET BIT 3 TO MAKE TAPE GUT INACTIVE 
LFP 3: NOP 


$A = VALUE TO WRITE TOCWITPUT FORT, N= 25 
PDE = CNUMBER eR PYCLES STILL Ta boy = 
$0 OF 1é6-T-STATE MELAYS THIS TIME (A EMAL 
i TIME ROUND), APPROFRIATE NUMBER OF NO 


SNS 


3GH+41.+0%-1XI, 
1) 44640 = NUMBE 
L. NUMBER THE FIR 
© ALREADY DGNE 


am 


P 


Ont 
Ort 

wll 
CE NNG, 


LPFS 


ones 


LPPA 
Fl FE 
Fa uy 


1 
i 

O1FS EFS 
iF4 34 


Ef 

RET 

RET CALCTR 
DEFER DF 


BEEP 


LOUDSPEAKER KEAN 11/23/1782_TCC b 


AGE 10 
Lac OB CODE M STMT SOURCE STATEMENT . AzM 5.9 
OLFS 27 
O1FE CO 
QIE7Z = =Q3 
O1FS 34 
OLFY EG. 
O1FA Ais 
OLE 1FFS 39 
OLEE 04 B90 
OLEE Al A4 
eli fe) co S42 
45 
217250 mag 
ze B45 Lh tae 
AZ. . 846 iA 
2056 G47 ARN?» ERRE 
23 453 INC HL 
4e B49 Loc, (HL) 
23 TNC HL 
AG Log CHL) 
73 LE A,B 
17 RLA . 
ar Sue ALA 
BY CF 
2054 “a Nz» ,ERRE 
B cr CHL) 
2 JK NZ ERRE 
is Lt A,B 
E ALD As 40 
recov =f AP Py LEPS 
E26702 RK OP PO, ERRE 
LEPS 
LD B-4 
LBFS2 : 
INC B 


SUB 2 

UR MES LEP ae 
Abu A, 12 
|) 


ft LO HL GAMUT 
x CALL ARRAY 
Xx CALL ST. 
RET CALCTR 
Fa TIMES 


NER EC Cult 
7 AF 


EB LAVSE 
EPR DUP 
BED Cui 

PALL FIX UN 


| 
bEFW #FSSH 

| 

| 


§ 
, 
5 
s 


er Sn a 7 


L1U/23/1782_TCC FAGE wi! ! 


LOWDSPEAKER 
Lan GB CODE ATEMENT ASM 5.9 


ct 
cmc 
= 
= 
= 
— 
= 
= 


be Td a 
een 


crm 
iad 
a 
> 
ime 


SHINS 


TEENIE 
al 
KE 
Lom 


- 
THOT 
re be 


cP PARP 


ERRE: RST ERROR ; 
Neri io : 


C3BaC Me 


Cer 
OA 


BANUT 


1:37 : 
W ODGOZH A 
B41 2H 


LENAME 


CALL EXFRN 
LU Ay (FLAGS) 


LOUDSPEAKER ' KSCAM VA/2B/1PE2_700 RAGE 612 
Loc OB CODE M STMT SOURCE STATEMENT ASM 5.9 


7 P4o1 apn AA 
FAQOOO X ° P42 JP MM, SYNERR 
Et 943 POP HL 3 
ho P44 RET NC 
ES DAS PUSH HL 
CoO X P46 CALL FORSTR 
&2 ‘97 LO Ho 
4.54 Phi LD LE 
ot wh? DEI 1 : eu 
Fe 270 RET M 
oo 971 ABD HL, BC 
CRFE 72 SET 7) (HL) 
Co P73 RET . 
974 
275 
276 
977 : 
7S 
@ 


) } 
CASSETTE TAPE FACILITIES TAPE 11/23/1782_TCC FAGE 1 
Lac OBI CODE M STMT SOURCE STATEMENT : AEM 5S. 
1 #HEAL CASSETTE TAFE FACILITIES 
Be #LIST GN . 


GLOBAL SLVM, HOBORD 


EXTERNAL PUTTES i 
EXTERNAL SELE fs INSERT. DCH 3 
EXTERNAL DELBEC DE, RECH 3 
' EXTERNAL TENE 38. TENI0;2VNERR END?, STK_0, TEM46,F 1X0, CHE_SZ $5 
EXTERNAL TERM? $4 
EXTERNAL INTE Rie 5.3 ; 
EXTERNAL FINDLN, POPFETR 3 
W_TAFE: SWRITE DE BYTES FROM RAM TO TAFE, 1X —> FIRST, PRECEDED BY THE 
: 5 BYTE IN A WHICH 15 USED Ta IDENTIFY THE TYPE OF BLOocK — 
p 4 USUALLY O@ FOR A HEADER Far Ks x1 FoR DATA, 
S93 SFORMAT OM TAFE_IS A LEADER AT 804.5 HZ (4032 CYCLES, GIVING 
g 3 SS, OR 1612 CYCLES, RIVING. oe! ACCORDING AS HIT 7 OF THE 
: § BLOCK TYPE-15 6 OR 1), 1 CYCLE GF 2040 HZ, 
): 5 THEN DATA CS AP FIRST IN EACH BYTE, 4 CYCLE OF 2046 HZ 
cy: § FOR AO, 1 CYCLE OF 102 20) HZ re A hee HEN PARITY BYTE (XOR 
f 5 OF ALL DATA BY FORMAT AS DATA BYTE) 
a SABNVE FREGUENCIES NOMINAL, Exact TIMINGS ARE GIVEN IN 
ch 3 COMMENTS OM THE CODE (DEFAULT UNITS ARE MICROSECONDS ) 
7 tape R IF BREAK (SPACE | KEY PRESSED). 
: od SMASHES IXA‘F* 
QOO00 217000 K 3 Th Hk WR Bono ; ie 7 
woods ES 41a PUSH HI. SRETURNS ARE THROUGH W.-FCIR DD 
OOO4 : 411 LD HL, 4032¥2 
Q007 Ale BIT_7,A ; 2 
OOF i 4h3 JR Z,LWTL 31F HEADER BLOCK 
aaais 414 LB Hl, 141282 : 
OODE 415 Lwris EX AF, AF’ oa 7 . er : 
QO0F 414 ING Tak 370 ALLOW FOR BLOCK TYFE EYTE. 
O10 417 GEC IX ‘ ‘ 
oO? 413 pr ww ; ; ae / 
419 . “ghte HERE DISABLE NMI“S sex 
ao1s 42a Lh AZ 3A 2= 2 FOR RED BORDER 
ke 421 LO BLA P 
422 LWT DINZ $ sWRITE HEADER ; isd 
423 OUT (O_FORT)LA _ : pory =orél 
424 XOR OFH SFLIP TAPE GUTPLIT, SWITCH BORDER BETWEEN RED & CYAN o- 
4Z5 sHALF FERION = 419.4 
45k 
Z 
oN as EN, CARRY GUT OF LL, DECK B BECAUSE THIS FATH 
S TS 43 T-STATES LONGER . 
ib B: ay SHERE WHEN &04.5HZ LEADER IS COMPLETE 
Ban § A sFOR 190.4 HALF PERTOR 
At ? 
Li ;TAPFE HIGH, CYAN BORDER 
Lb sFOR 210 HALF PERT OD 
4 TLhINZ ; 
q 4 QUT COLPORT) >A. - 4h ot : 
4 x Lo re ‘ 4+0EHI FIRST HALF OF FIRST DATA BIT, 244.4 TO 244 IF AO 
: qin ra e 
4A4O Lob 
R 441 JP OL 
aa LWT3: Ae eo SHERE AT THE START OF EACH DATA BYTE, C=0OEH 
ROE 
3 445 IR ZoLWT3S sIF FARITY BYTE 7 . 
6040 AA LOL. ¢IX) sELSE PICK UP DATA BYTE (NE CAN BE DELAYED UP TO 1.4) 


CASSETTE TAFE FACILITIES TAPE 1A/2S5/196270r FAGE 2 

Le Ry se CODE M STMT SOURCE STATEMENT ASM 5.9 
0043 7c. 4 LWTSS: LO ADH : 
H044 AL o XxOR L 

OO4S &7 47 LWTS4: LO HA SUEDATE FARITY BYTE Pits " 
046 SEQ Sees sTAFE SIGNAL LOW, BLUE BORDER 

Ra 
CAS300 RK AP LWT 4a 
OOaL Co LWTSS: LO LH ' SHERE TO FICK UP PARITY BYTE INSTEAD GF DATA BYTE 


OOD 1aF4 JAR LWT32 


OO4F 7? LWT4: LD ALS ERE TO OUTFIT SECOND HALF GF BIT CELL 
oos0  CE7S 4 a BIT 7,6 $ ee WITHOUT DESTURBING CARRY 
4S LWT423 SHERE WI NZ_IF-FIRST HALF OF KIT CELL, 2 1F SECON HALF y 
4h § CARRY + AC DING DATA BIT, bL HOLGING REMAI NI BITS oF AG RRRENT 
MEL 3 BYTE AT HS END THEN Ad > FILLEN END WITH 
qm 3 H. = FARLTY BYTE TNL TNE “e ehEGs 5 Fon 
4A $ TIMING, CeOEH, A AS REGST LIWT44, IX -> 
4&4 § LE = NUMBER OF BYTES (INCL PARITY BYTE) TO SUTEUT AFTER THE 
ALS § CURRENT BYTE Fe 
OOS2 464 DINZ  $ IFOR 244.3 TO 245.7 HALF PERION IF A oO 
0S 447 IK RietLWTa4 ; 
Aen a B64 a cer i: . . 
AbD . LLINZ § SEXTRA 244.3 (TOTAL 485.6 10 490) IF A A 
ATO LWT44s Gut (O.FORT)A 
471 LO by 4&2 
472 iy NZ;LWT4 sTO 00 SECOND HALF OF BIT CELL ‘ 
473 EG Es ae 
474 XOR A SSE 3 on 
47 INC A SAGs FOR GLUE BORDER 
47@ LWT46s RL ; GET - Next DATA BIT 
Ro 477 JF NZ» LWT42 a ae 
473 DEC DE SHERE AT END OF BYTE 
aly ING 1X ght 
4nd put NEO THE TINES IN THE COMMENTS ARE NO LONGER CORRECT: THEY 
4 p##e ARE BASED ON HAVING “LID B,S1° NEXT, THEN THE FOLLOWING 
2 a By a TURLIET LLIN MISSED OUT, & THEN “JF NZ JLWTS° REPLACED 
meg + 
4 5 eH ACTUAL. TINES VIA THIS midi ARE THEREFORE BETWEEN ©. 3 LESS 
4 pete & 1.1 MORE oN STATED 
4 LO Et 49 
4: LO A,7FH 
4 IN A> CI_FORT) 
4: RRA coe. Renate : 
4 RET NC 1TO WOBORD, IF BREAK (SPACE KEY PRESSED). 
4 Lt A, D 
Aue INC A 
RK 4 AF NZ LWT S- 360 GET NEXT BYTE : 
4 LO Bay ary APEROX A_O-BIT HALF~ FERTION BEFORE RESETTING 
HOTA 1¢ 4S DAINZ TAFE GUTPUT 
OO7C Cy 3 RET ito WORE . 
4 W_BORDs 3 wae BORDER COLOUR TO OUTPUT “PORT, RESET TAPE ANDI SPEAKER 
3 INTERRUPTS ABORT IF BREAK (SPACE KEY PRESSED), ENABLE 
? — 
SFRESERVESS EBC CEHL 


soe FS PUSH AF 
HE o% fn pe Ay CBORD) 
»SHL. BACKS 


cu (OLFORT)A 
A,7FH ‘ 
IN Avite PORT) 


SE7EF 
DBFE 


> . ore : : : Sen ee ae ote pom Soy se pte yee Ze 4 ‘i aso 8 Figg ss nie Sie ate? oi 


CASSETTE TAFE FACIL 
a OBS CODE. M S 


Liou 


OOD 
Tee | 


O07? 
OO9S 


to Ta 
te 


Fat a 


Se Sn oon 


on 


IT! 
TNT 
Sit 
Siz 
S43 
S14 
S15 
S14 
617 
$13 


ES 
é 
= 


i 


OURCE 


LWDSs 


Pa 


MyDS 


Sammy 
4s 


Pa 
mc 
“% 


see 


sERROR f, 


BREAK IN PERIPHERAL 


CASSETTE TAPE FACILITIES a TAFE _ VL/ 23/1982. 700 FAGE — 4 
Loc 6B CODE M STMT SOURCE STATEMENT ASM 3.9 
#EUECT 
ROTAFES 3 FROM TAPE TO RAM 
$ H BLOCK TYPE? AL'SO 7 
3 CARRY SET AND 1X —> WHERE TO eas IRST pyre TO LOAD 
3 OR Nie AND IX -> FIRST BYTE TO be RE AGAINST IF VERIFY 
sEXPECTS Penn £3 WRITTEN BY W..TAF 
ae 5 CARR ET IF Ok, NO IF CHECKSUM ERROR ¢ 
; KS SaRTER THAN "DE BKYTES CR FAILS TG VERTEY OR BLOCK 
$ TYE WRONG, 
Leen IF A oi (SFACE KEY, PRESSED), 
ia 


INC o 
EX AE» AR’ 
DEC: 

LY 


LI A, OOOOVLLIE 
(CPONT ) A 


SLI 
ee 
—_— 
=. 
ma 
Fr! 
t 
mo 
fet 
= 
at 


BAG 
4l 


na. 
ND St. (TAPE. 


Vi A 


nis se 


BODO 
Bm 


NR EDGE 
TRICO LRT 
Lt HL, 1048 
[iNZ 

NEC HL 

Li Asti 


oul NZ LARS 
CALL RDI 
AR MC LRTS 


. 
S0F 
211504 


4 
t 


R 


Kt 
JR a LRT23 
ni sg LAT27 


ha en 

AR LRT4S 

AE AF! 

X NZ LART405 
NESERTAL 


OOF 


SHES TXA°F 
iSET 


pee HERE 


NZ 


DISABLE NMI S #4 

iSET LOUOSFEAKER & TAFE GUT INACTIVE 
SRETURNS GO THROUGH WOBORD ; 
t 

IRE fh BORDER 


$SET Z FIRST TINE ROWING 
;WITH NC IF BREAK 


370 EXIT IF BREAK OR REPEAT IF TIMEQUT 
tWATT 1 SEC (ARCUT 0.957 MSEC EACH TIME ROUND) 


;NOW REAM HEADERS FIRST GET BACK INTO SYNC 
TTF BREAK OR TIMEGUT : 

TIF TIMEQUT ETC 

v1IF Tan SHORT TO BE LEADER 

SUNTIL 254 CONSECUTIVE CYCLES RECOGNISED 


HIF BREAK OR TIMEOUT 


SUNTIL 
STGNORE SECOND FART 
| 


"SHORT O8 CELL FOUND 


OF "SHORT oO” 


SCHANGE COLOURS FROM RED/CYAN TO BLUE/YELLOW 


E.G TYPE i 
VERIFY 


CASSETTE TAPE FAC IJ TEES TAPE VA/ER/ 1982700 FAGE Se 
Lar EI Cope MW STMT SOURCE STATEMENT ASM S.% 
OES LO? S00. LO (YX)ab sELSE STORE DATA BYTE 
QUOEF 1S0F aR LRTAS . 
OOF L CEA LAT4OSs RL $SAVE CARRY .: 
ERT TAFE... aes a4 
mo .NOT. (TAF 1<7) 


E por IN AS AER TTON { TAPE 17 
t: ms 
ab XOR L ae: 
ro RET NZ PWITH NG IF RGESN’T MATCH 
7? LO ALC 
1F RRA | ied _ i 7 A 
is eae SRESTORE C & CARRY, PRESERVING Z 
iZ B07 é JROLAT425 
nO7EOO LAT41i: LO ACIX) i 
u YOR IMB PRESERVES NC 
CO. 4 KET NZ ¢WITH NO IF FAILS TO VERIFY 
obe3 > LRTAZE INC IX 
1k 400 LRT4#Sss DEC TE 
5 O88 40 “EX AF, Al ‘ 
Olea O6B2 & Lis By 7 
OLd6 EEOQL & LAT43: LO Lt : 
4 LRT4S: FHERE TO KEAT NEXT BIT. WITH BITS ALREALY READ AT LS END OF er! 
4 3 HEN A 1-BIT, MS I FILLED WITH © H = PARITY BYTE, 
A) 3 REG D BY ROBY Pk -> WHERE TO Pir NEXT BYTE. DE = 
60 3 NUMBER OF DATA BYTES STILL TO READ. (INCLUDING THIS ONE) 
O1L0% COS1O4 Ko & CALL ROLBIT 
Ls & RET NG 
oe 4 LO Ay -S3 . c s _ ae oe 2 q 
aE. & i P ; SSET CARRY IF > ABOUT 6846 MICROSEC, CLEAR ELSE 
CE EC & LOE B, -80. : 
OLS Le0801 R & JF NC LATAaS Ee one ae 
O116 9 7 4 Lo wH - $HERE WHEN A COMPLETE BYTE IN L 
QOL17 Ag 4, XOR LL an eee eek 
Olle ~ 67 4 LO tA sSUPDATE FARITY 
oul? 7A 4 ee oe 
O11A BS 4 
O11B ZOCA é tn Kiz»LRT4 = 
o11o 7 & AvH s WHEN Nit MORE DATA ub READ (50 L WAS ta PARITY BYTE) 
OL1E FEO. bs ce 4 3SET CARRY IF CHECKSUM OK, NCO TF WRON 
O1ZO Cr , RET 
& 
4, RD_LBIT: sREAN A BIT CELL (TWO eae ‘TTIONS) 
sENTER WITH © AS RECWIF D3 ; 
PALS NOT Lt, N ae AME THE EIT CELL LENGTH 
sRETURNS CARRY ° IF bw 3 FCuINE, (NCLNZ) IF BREAK, 
Se aesnes 7) TF & REACHE 
3 TOTAL 129+598(N+10) a rhtES IF: BOTH ENGeES FOUND INCL CALL & 
b 5 RET BUT EXCL LF Ta BOeSN T-STATES DELAY FOR RAM ETC ACCESS 
4 SPRESERVES DEHL, ALSO & IF BOTH EDGES FritiNG 
O1zt COZ50 1 KR 4 CALL ee . 
o124 Bo é _. RET : aa 
‘ & RLEDGES SCOUNT TINE UNTIL NEXT EDGE 
4 SHATTS ABUT 115 MIC ROM START OF CALL BEFORE FIRST TEST 
4 $70 ALLOW FOR BCUNey AFTER PREVIC aE 
QE sSENTER WITH BIT CTAPE_I-1] OF © HOLDIN RRENT POLARITY, D2-D0 
640 5 HOLDING CURRENT BO sii leag COLOUR CSEE ANTEPENULTIMATE INSTR) 
ree ea PP acne WHERE N IS A MEASURE oF “THE TIME BEFORE THE EDGE 
642 3 AS FOUR 
443 sRETURNE CARRY SET IF EDGE FOUND, (NC.NZ) IF BREAK PRESSED, 


CASSETTE TAPE FAC eres TAI 11/23/1782_TCO PAGE 4& 
Lot OBS COLDE-M STMT so WRCE STATEMENT | AEM &.9 
644 i (NC, Z) LIF BR REACHES 254 : 

. 645 STOTAL 47450%(N5) T-STATES IF EDGE | FOUND, Sve (N¢S)-23 TF 
444 3 REACHES 254, IN EACH CASE INC at i BUT EXCL up T9 
£47 $. 25+5N T-STATES UELAY FOR RAM ¥ 
e348 . Lo A te SPRESERVES DEHL, SONPL. EMENTS C IF &0GE FOUND ELSE PRESERVES IT 
oe oe ree 
450 LREL: DEC A sWAIT 100 MICROSES 
aaa | AIK. NZ» LREL 
& ‘3 AND A a 
é LRES: Ae B Be 
4S RET Z. 

é LO Ay 7FH 
i an RI oPORT) 
RA . 
: : wal NC sWITH NZ (F BREAK PRESSED 
OR I 
440 AND 1. SHL. (TAPELI-1 
bel JK Za LRES rie TAFE DATA UNCHANGED 
442 to Ac . SHERE WHEN EDGE FOUND 
643 CFL 
Led Lu CA ; : : 
445) AND 7 . . 
L466 OR ¢ i ‘SET BIT 3 FOR INACTIVE TAFE GUT 
rae Pat (OUPORT),A SFLIP BORDER COLOUR TO SHOW USER EDGE FOUND 
CY ct tl 
4h? RET 


as st cae TE TAPE STATEMENTS TAFE PAGE 7 
Lor ORI COME WH STMT SOURCE STATEMENT ASM 5.2 
eae #HEADING CASSETTE TAFE STATEMENTS 
272 SLVMs sTEALS PREL INTNARILY WITH raat LOAD, VERIFY OR MER we STATEMENT 
473 ENTER WITH (T_AnnR OF SYNTAX TEMPLATE 
474 SIF CHECKING 2YNTAY, THEN NTAX. 
i? 31F ete: THEN SETS UF HEAL ALOCES IN RAM. FOINTED AT BY 
Ls FP les $ : 
477 sFOR SAVE, THEE CONE BLOCK, AT CIX), & IT WILL BE THE ‘ 
473 A EADER bt i. 
E79 SPOR LAL & Wetceet HERE ARE THO BLOCKS, AT (IX) & CIX4L7 
40 3 THAT AT CTX) 3 THE INFORMAT 10M NEEDER FoR IDENTIFYING: & 
& H a with THE REAL EAE & THAT AT (1X*17) TS FOR THE 
4 3 ADER BLOCK OF THE READ F FILe. 
4 when! RUN Mess CARRIES GN TO MORE SPECIALIZED CODE WITH HL —-> one 
é 3 Cie OF RAM TO BE SAVE U/LOALED TINTS VERIFIED AGAINST. 7 
4 3 HL = 0 FOR COA UNFOUND ARRAY : : 
é iat NTER auth Ses NEAT CIN MODULE SYNTAX). 
ra . 7 5NASHES ‘fine “BR EAL, 
ols FL é i, POF AF WASTE NE TEM" 
o144 SA74SC0 é LD Ay (TALI) 7 ‘ 
O147 L400 é pets 3 i 3508 TEMP S8+1.AND.OFFH 7 ‘ 
CR — ‘ 
tet WARNING-GRG I ELOCATARLE wit 
OL4s a100 x OCF W Laas 341 
: BRI 
weet WARNING-ORG IS LOCATABLE #34 . of ee ete al : es 
Olay 3274580 LO (TLADIRD A 9¢(T. ADT) t= O,1.2 OR & FOR SAVE, LOAD, VERIFY OR MERGE 
O14e x CALL TEMIO- FILE NAME 
OL4e X CALL INTET? 
oO1ss AR Z,L8M4 
pr RUN Has WE SET UF ONE (FOR SAVE) GR Tut (FOR ne pee 
AR 1 EYTES EACH a S THE HEABER BLOCK ON TAPE 
. FWE LABEL “THE BYTES Tt AREAS. 
HOTYPE: EG oO $1 BYTE - 6 FOR i AM, 1 FOR NO. ARRAY» 2 FOR CHAR. 
. : q ARRAY CR 3 Like BINARY. : : 
HONAMEs Et 1 nee 310 whl FOR NAME - ANY FRINTABLE A: SOIL CHARS, SPACE- 
: we 3 F ge nee FOR LOAD/VERIFY/MERGE "", 1ST 
Whe 3 CHAR 
70O& WOOLEN? En 11 32 BYTES - LENGTH OF TATA BLK 0 TF LINE “FECTFIED IN 
Lays 3 Pays CODE ...9 UNDEFINED IF LOAD UNF OUND 
TOG 5 AY 
709 HOADD: Eu 13 $2 
7149 $F : fa .y Sagat BUT ALSO USED Don THE 
1 3 STARTING L Nt SAVED 4... LT one 
ot sFOR ARRAY E THE 2NO ivi = NAME OF ARRAY AS IN 
2 3 : VAR TABLE SCORB (TOP 3 BITS = 100 FOR MUMBERS, 110 
‘ 3 OR CHARS. 
bac) 3FOR BINARY, THE LOAD ADDRESS (OQ IF UNSPECIFIED IM 
ra ; 3 LAN/VERLFY) pe : 
7 HOVARS:s ECU 15 32 BYTES, USeEn cNLY FOR PROGRAM. THE GFFSET OF THE 
' & i BEGINNING OF THE PROGRAM. 
Cg tae} a 
OLS7 ze) 
Ola 
OWSE 
O1so 
OLS F7 
O1460 ns 
WiGs DOE 1 31X 2-3 157 BYTE OF SPACE 
TAL 26 THE NAME PART OF THE AST AREA WITH AN FFH & 9 
G3 LE Ey 1) 
NES 


Lo A.” * . i 


tarpon 


~ 


yooks 


Olen 


O1yl 
O193 


OL@n 
OFE 
OAL 
OLAS 
Oba 

OLAS 

O1An 
LOLA 


OLAE 
OLAF 
Oia 
OLb3 
OLES 


OL ES 
O1by 


spore 


73 

Bt 
SB0A 
OLOAGD 


DOES 
E1 


23 
Ek 
ERO 


ie AG 10K its) 


C ee OC ) 


20000 


CDOGOO . 


BES 


23 
7 


Es nis 


xx 


NNN 


CRTLRLALACA 


LSM24s 


NINNININNNININN 
PUK OVINE Oe 


SSSSAGUNU 


LSM2é: 


LbhSSb> 
SGN 


a FNS 


NOUSish 


NNOONINNESNENSNE SS 
NNN NOOR eS Re 


i 
4 
z 
8 


NNNNNSN 
mSOONINNNIN 


og) 


LEM4s | 


CALL F LNDLN 


VA/ES/19S82_ 700 FAGE 3 
ASM 3.9 
LO (DE) LA . 
Ne DE 
ThINZ LSM24 
L.0 CTX +HOMAME).OFFH 
CALL FOFSTR 
LO HL, -10 
DEC Fat 
on ne 
JR ONC, "SUNLESS: STRING LENGTH = Qa OR > 10 
Lh Ay tt “ALOR 
! ) 
i He cane ¢ SAVE i é 
ERROR F, INVALID STRING IN SAVE 
RST ERROR 
DEFE 14 
en FOR LOAD/VERTEY/MERGE WHEN STRING LENGTH = © OR > 10 
cB ace (WHEN WE CUT IT DOWN Ta 10). BE = STRING LENGTH. 
tA» 
aR eC : 
JK Z,L5M4 
LO Bt,10 
ene. 16 COPY NAME INTO HEADER AREA z 
sDE -> NAME, BC = LENGTH (BETWEEN 1°& 10). 


ERT HDNAMEs A 
- (HEINAME= 1) 
SET TEN HEIMAME=1 


RET 

i barn 
JRONZ, iba) 

+ HERE Pee ARRAY TYPE 

SSPECIFIER IS DATA ARRAY NAME () 
LB As (1. ALI) 


‘ 7, SYNERR SIF MERGE 
Ret N Nxt TE 


SET VIF RUNNING, Cot= NAME FOR VARIABLE RECORD 
iB Nes Lena2 iIF CHECKING SYNTAX OR ARRAY FOLIND 

ih HL, 
bc Ms ADR) 


SIF LOAD WITH ARRAY NOT YET EXISTING 
SERROR 2, VARIABLE MOT FOUND 


Mere 31F CHECKING SYNTAX & NO BRA 


HERE, WHEN RUNNING & ARRAY FOUND 
: IL -> NAME IN ARRAY RECORD. ahead 
INC HL #HL f= LENGTH IN ARRAY RECORD 
LEA, (HL) 


oy 


a 


Oo 


Glad 


OLD. 
“los 


O14 


OLLI 
O1L7 
OLA 
OLnb 


mmm 
Noth 


PET TTT 
CroorhamoD 


ce] 


1 
1 
1 
1 
Ol 
1 
1 
O41 

1 

1 


aati Ye 
bi7s OD 
D7 408 | 
1840 


FEAF 
Z04F 


LiF 
FEZC 


DCH Cee 


oe 


ped ax 


1 
i 
1 
1 
a1 
1 
1 
1 
1 
1 


LEMS33 


TE TAPE. STATEMENTS TAPE 11/23/1732_TCr PAGE v 
BB COnE M STMT SOURCE STATEMENT AEM 5.7 
G7 708 735 LO CIX+HDLEN)A 
23 788 TNC HL 
7E 720 LD As CH 
E7700 7? 1 Lo CEXSHOLENS) A 
722 INC HL 
bD7 108 773 LSM4252 LO (IX+HDADD+L).& 2 
zt TPA LO Ast 7FOR NG. ARRAY 
71 795 BIT 4,0 
£o01 724 WHR Z,LEN4Z6 -$1F NG. ARRAY es 
30 727 INC A 3A 35 2 FOR CHAR ARRAY i 
BoO7700 7S LSM4Zee:. Lh CIXSHDTYPE DA 
Eb 7% LEM432 EX DE,HL 
& RET NXT_IsS 
Ee ee oe : 
= foe gE ee wae . 
200A BENG ShaZ i(WHENCE TO SYNERR) IF CHECKING SYNTAX & NO KET 
ae RST NXT.IS ; 
co CALL END? ; 
ER EX pet SHEL &-> NG. DIMS OF ARRAY (OR i= O IF ARRAY NOT FOUND) 
Pa ee al Sh . « 


. 


CF oor tase 
AS NZ aL SMS2 


sHERE PR SCE EN» WHICH 18 BEST VA ENT TO CODE DLFILE, 3242449 
¢ (TO SAVE DISPLAY FILE). 
Be Ax 7 _ABER) : 
IF Z) SYNERR sIF MERGE 
RST NXT_IS 
RST NXT_IS 
CALL END? : 
LUO CIX+HOLEN)», 3242449 ; BND. QFFH 
Lo (CIX+HDLEN+ 1), 32¥24%5 9.SHR.S 
* LE HL,» D_FILE 
LA CIX+HDAGD) sb 
LD CIX+HDABD+L YH 
JR LEMS 


CF OPLTR+CODE 
JR NZ,LEM4 
PHERS FOR BINARY TYPE: 
PORB/UEETEe ny 2-2. CODE START,LENGTH 
; OR LOAD/VERIFY ... CODE START 
3 OR COAL, VERTEY ... CODE 
LZERS VALUES ARE USEG FOR THE ABSENT CASES OF START & LENGTH 
Apter) IN LOAD & VERIFY. 
iLt 


Sgt s1F MERGE 


IR NZ, SMS s1F START PRESENT - 

ib ast SABER) 

7+ YNERR SIF SAVE 
ET. iDEFAULT START = 0 


vaghs 2 TAFE STATEMENTS 


>< 


LSMS43 


be ba 


Co 
CHAE 
BL7 1Ok 
BE 7 00 
G7 100 
COZ OOE - 
40 

&o 


0: 
mS 
Ei 
x 


LSMS7s 


D360 QOS 


LiMés 


LSNG2 


LoMéss 


BE7SOF 
bo7410 
EG 


SA74S0 
a7 
CAREO4 


LVM 


508 


TAPE 
Ed Ene, M STMT SOURCE E 


LI/S3/1SER_ TCL | FAGE 10 
ase S.? 


SIF LENGTH PRESENT 


VIF SAVE, NO LENGTH 
DEFAULT LENGTH = 0 


RET NXT_18 

RST NXT_TS 

CALL TEMS 

CALL EML? 

CALL FIX..u 7 $BC = LENGTH 
LO CIx+HBLENM) sc 

LO (TX4HGLEN+ 1). & 

CALL FIX _ #BC t= START 
LO CIX+HDADDD, ; 
LO (TX +HOADD+L),B 

LO HE 

LO Lt 


SHERE FOR EINARY TYPE" WHEN RUNNING, WITH CIX+HDLEN) & 
CIX+HDADD) SET UP & HL = START ADDRESS. : 

LL (IXSHBTYPE) » 3 

Sl 


LINE TK | 
WR Zo LMee 
CALL END? 
rie Paar t tN sFOR LOAD BUT DON’T GO 


sHERE FOR LINE LINE NO. 
LO A, (T_ADDR) 
ANE 


RST NS SYNERR SUNLESS SAVE 


SEND 


= oe 
\ To 
SBC t= ENTRY LINE NO. 
ADD) »¢ ' 
bt+t)» 
YPE) +0 
E.) 
SGC Hh» 3H LENGTH a DATA CEXCLUDING GOH AT END OF 
L 1X4 Yak $ VARIABLES) 
E : i: +1),H 
SE Hb» Dh S(NE ONG) HL t= (VARS) - (PROG) 
Lo iythin Sek 
Lf UD HLWARE “LH 
EX DE, HL 3 Hit. GRAM 
i HERE, oeits pBoter ET UP O& HL -> INITIAL BYTE OF DATA. 
LE Ay (TWALDR) 
AND A 
JF 2. DAVE a 
FHERE TO CONTINUE RUNNING FOR LOAL 
5 (TLADDR) = 1,2 OR 3 RESPECT! 
31X -> A 34 BYTE AREA: THE 
3 & THE NEXT 17 ARE USED 
SHL -2 LST BYTE TO BE LOADED INTO/VER 
SFOR PROGRAMS ~— IN LOAD & MERGE, HL 


| 
} 


we wee ne. ee 


CASSETTE TAFE STATEMNEN' Fi 
Lit 


SOURCE 


OBJ CODE M STMT 


ES 
OL11a0 
Cig 


DnES LLM3s 


111100 
OF 


7] 
o 
a 
7 


af 


Sregted: 
2 


LLM3Ss 


LLM343 


‘LEMS: 


CALL i TAFE 
FOr IX 

wR NC LLM3 
ib Aa "eeLEl 


CD (1ry- 


ENE 
a ae 


Lb as (HL) 
aR “Nes 7LLMES 


inlet WIRCH 
RST UREH 


SCRUCT) 3 
iN WHAT, FOL Lon 


1/23/1982 700: FAGE 
STENENT ASM 5 
ee. IN VERIFY, HL BYTE OF PROGRAM. 
{FOR ARRAYS -.HL -> NG. GIMENS RRAY (OR HL =O IF 
; LOAD & ARRAY Fine TYE ‘ 
cust He. oFaR BINARY: - Hts STaRt ALR ECIRICn, ELSE oO. 
Lo Bit, 17 
ADL 1X, Ee: FIX $<3 1ST BYTE OE AREA FOR READING IN Ta 
SWE Now WANT ‘TO FIND THE FILE ON TAPE. 
fFOR EACH FILE WE READ Past, WE FRINT ITS TYFE & NAME CIN THE 
PUSH IX" a : 
LO DE, 17 
A te 


i ZERO CODE BYTE FOR HEADER BLOCK 
TFOR LOOKING 
i 


150 heen y SCROLLING 
c CHES Ouee ene THe NAME 

VC ONCE FOR EACH 
IS FOUMO, 
ya ~-10 80 THAT 10 
T : DONT MATCH THEN 
ZE 5 ae 20 THAT NO IBLE NO. .0F MATCHES 
Lan MAKE a +VE. 


SWEETER NAME (= READ IN NEXT FILE) COLINTS AS 10 
32 WHICH GUAR ANTEES SUCCESS UNLESS THE TYPES WERE 


; WHAT) IS REGUIRED. 


DE ¢-> BYTE BEFORE NAME OF FILE REAL 


f72 MANTED NAME 
10 CHARS IN et 


3 HL. 
3 


H 
FOR 


SIF REQUESTED Nan NON-EMPTY 


5A +85 10 
sIF ANOTHER MATCH Ok 
SCHAR FROM NAME OF FILE FEAT 


CASSETTE TAFE STATEMENTS 
: OBI COBE M STMT 


Yh 


“fi 
NS 


teddy liege ai 
oii hie e 


MENS eds 
SINNSIND Ss 
SSNS 


PP 
1000 
1001 
1002 
1003 
104 et 


29 
1630 


S00 URCE 


LOGIN VE 


ERR: 


LOAL: 


~ 


nn 


nen 


APE 11/23/1782_7TCC FAGE OL: 

STATE : ME 

DINZ LLMs : 

BIT 7.0 2 coe Se 

JR NZ LLMS #FILE NO GOOG - TRY ANOTHER 
Ace sHERE WHEN FILE FOUND, 

i A. NI 


L 

RT WICH 

RS WRCOH E 
FOP HL sHL RESTORED TO VALUE AT LYM 
"Fe Ay CIX+HDTYPFE ) j : 


3 


AL 


»>LBIN_V 
> (TABI) 


LOAD 
MERGE 


sFOR LOAL/ VERIFY BINARY 


SHERE AFTER LYM TO CONTINUE RUNNING FOR LOAD BINARY OR VERIFY 


PUSH HL. 


SFIRST CHECK LENGTHS. FOR PROGRAM OR ARRAY, THEY Mus 2m AGREE 4 
: FOR BINARY, LENGTH REGUESTED = O OR >= LENGTH GOT. 
Lg La (1X21 74HDLEN) ee 
LOH, (1X-17+HOLEN+1 ) sHL t= LENGTH REQUESTED 
LID E. CI¥4+HGLEN) : _ 
LOD. (IX+HDLEN+1) SDE <= LENGTH GOT 
iB pr . 
Like 
AR ZL LVS sFOR BINARY WHEN NO LIMIT SFECIFIED 


SEC HL, GE 

JR Co ERRR 

UR Z:LLY3 

ee Ar CIX+HDTYFE ) 


JR NZ, ERRK 2 BINARY 
s HERE WHEN. NCENSTHS ees fE = LENGTH TO REAL - 


ot sHL == ADDRESS TH LOAD Ta/VERIFY AGAINST 
vied 

+HDAGL) 

+HDADLI+1 ) sHL = DEFAULT START IF WAS 0 
ADDR) 


#70) LAL 


F 
wife NZ,LLY4- 


AND ¢ To VERIFY 
Lo A paeeAr 3A FFH FOR DATA BLOCK 
CALL Ro TARE, ABORT IF ERROR 


_RTAPE 
Te SIF OK - P 
SERROR R: TAPE READ ERROR 


ATED 
sHERE AFTER LYM TO CONTINUE RUNNING FOR LOAD (FOR PROGRAM OR 
3 ARRAY) . 
$127 CHECK ENOUGH SPACE FOR NEW FROGRAM OR ARRAY. 
LD €, CIX+HOGLEN) . 
Lo Dy CTX+HELEN+ 1) sDE = NEW LENGTH 
FusH HL 
LI AyH 


Pa 


”" 


SETTE TAPE 
Ci CODE MS 


STATEMENTS 
TNT SOURCE 


_ ELT 3s 
-LLUZS: 


LLE273 


LLD4: 


fibacou 
Oa Aor 
co 
tis 
O3 
vs 
poeere 


(aYerern) X te 
1 


Fl 
77 
ft 
23 
73 
23 
72 
23 
ES 


TAPE 
STATEMENT 


OR OL 
JR ONZ LL De3 
TNC. CE 


Zs LLNS 


we se we eg 


TX" (X. ETE) 

; INOW WE 
LO Hi, CELINE) 
DEC HL 


Lo > (EX+HOLEN) 
LI 


ERT 


LL/23/ 1982 TCR 


27 
SHERE TO CHECK & 


LO DELS 
Alu Fil.» LE 
LI GLH 


LO fob 

FALL CHikSZ 

LO A, CIX+HOTYFE) 
— Aa 

a 8 


EXIST, I 
DELETE THE OLE ARRAY IF IT EXIsS 


K~17+HDADD+! ). 7A 


SUNLESS ARRAY, & NG OLD ONE FOR DELETION 


$HL ¢= LENGTH OF NEW ARRAY + 3 FOR NAME & LENGTH 


AU SHBLENS 
7+HOLEN+ 1) 


PACE WITH HL = NO, 


EXTRA BYTES NEEDED 
EB FOR LUCK 6s 


sHL +85 


VIF _FROGRAM 

FOR LOAL ARRAY 
NGESN“T EXIST YET. 
THEN HL, 


THEN 
_ 


O & CIX+HDADD+1 ) 
OF DIMENSIONS, 


SIF IT DOESN’T. 


se 
st 


?= LENGTH OF ARRAY 
&~-> NAME OF ARRAY 


sh G= LENGTH OF ARRAY + 3 FOR NAME & LENGTH 
VERE SERVE IX IN A MOVABLE VARTABLE 


CREATE SPACE FOR THE NEW ARRAY. 


SHL ¢—> GOH 


Er, ¢ ERODE Ee 1) 


t= NAME 


7HL ¢~> NEW SPACE 


s(HL) &= NAHE 
iDE t= LENGTH OF ARRAY 


= NAME 


CASLETTE TAFE STATEMENTS TAPE 11/23/1982 7T00 PAGE 14 
Lats OBI CODE -M STMT SOURCE STATEMENT ASM 3.9 


ot 


OZA? DEEL vee FOP -1X y1X = a {Bony OF ARRAY 
osAb 37 ze SCF 7 sTO L , 
OZAC SE _ 1027 LE A, OFFH rene DATA BLOCK 
O3KE E34000 {Cag (P RTAPEL 
ep 
1100) LLIS: +s HERE To. OAn FROGRAM. 
101 se de, SHEL = (PROG) 
1102 EX DE, HL 
1103 LD HL, (EWL INE) 
1104 TE HL. 2 2 
1105 LO (X_PTR). IX iPRESERVE IX IN A MOVABLE VARIABLE 
1104 LM C. (1 X+HOLEN) - 
1107 cb Fi SRR PEeNeL) 
1105 PUSH 
X 1107 CALL DEL UE. 
1110 FOP Bt SHO f= LENGTH OF. (NEW BERAY 
iil FUSH HL. sHL = (FROG) 
tile PUSH BC 
X 1113 CALL INSERT 
- $114 LD Tks CX-PTR) Si, 
ae 1115 . ING sHL t= (PROG) , 
foacor tlia th en CLX+HEVARS) : 
LH4ZLo 4117 LE By CIX+HDVARS+1) 
op 111% ADD HL, Bo ; 
224 Roc 1117 LI (VARS) HL 
DLE208 1120 Lig fy Lia stieaeeee? : . 
7 liz] LOA 
E4CO lize AND abort ; 
200A 112s JRONZ,LLO7 UNLESS LOAN & GO 
DOE OD 11 Lo L> CTX +HDABD) 
224250 11 LO (NEWFFC). HL 
FUSZO0A00 it - ; £1 CIY-Y+tNSPPC),O eet JUMP Far LOAD & GO 
(1 1 LLIZs Par De SHE #= LENGTH TO READ 
ODE 1 re pee aoe {x 3 1X on EE BOG? 
37 1 CF s1G Le 
SEFF 11: co A, OFF, + FF DATA BLOCK 
C34003 RK if RTAPET 
11. MERGE & SHERE AFTER LVM Ae CONTINUE RUNNING FOR MERGE, 
it: SHEL = (PROG) 
DEAE OE 11. x +f 7 
PEaGOG it: X+H 
(5 11 
Os 11: 
#38 ii: 
F7 
B40 11 
El {1 : ; . 
Dd 11 SDE t= NO. BYTES TO BE REAL 
DDE 1 1i 3 1X IBA (SP) #-> 1ST BYTE OF NEW WORKSPACE 
pac 37 it 3TH LOAD 
0406 SEFF 11 FH 3 FOR HATA BLOCK 
Cris C4003 Roll PEt nia 
. 11 7 S HERE WITH (SP) -> EXTRA FROGRAM (TERMINATED BY 0H) 
O408 = Gees il: POP HL 
OFac ERSBSSSc 11 LO DE, (PRC) a : afte, 
: : 11: LNEZ: SHERE WITH HL -> NEW PROGRAM LINE, DE -> OLD PROGRAM LINE 
0410 TE: 11° LO A, CHL) s 
O41] E 1 AND OCOH a : at 
Qh =e 1 JR NZ, LMES $1F ON TO VARIABLES 
o415 4 ii: LMEZ1: LO A, (DE) 
O16 1 1 INC DE 


CASSETTE TAFE STATEMENTS ; TAFE 11/23/1782 TCC PAGE 15 
bLuc | 6B CODE M STMT SOURCE STATEMENT ASM 5.9 
O417 BE 1156 CF CHL) 
O413 23) ALS TNC HL a 
O419 2002 1140 IR NZ» LME2Z 
O41 1A 1141 LD A. (DE) 
O41 BE 1iéz st “PHIL 
1143 LME22: sHERE WITH (C, NZ)» (NC, Z) ie (NENZ) ACCORDING AS GLO FROGRAM 
Lees . 1144 ee | LINE NO. <, OR > NEW PROGRAM LINE NO. 
O44 14 1145 DEC GE 
O41LE 2b 1144 DEC HL : ' ae 
O4/F S008 1147 IK NOyLMEZ 
1142 PERE TF OLD PROGRAM LINE: REFORE NEW GONE. MOVE GN TO NEXT OLE 
1149 ; PROGRAM LINE. 
ES 1170 Eyrr. HL. 
EG 1171 DE. HL 
CLOGS X 1172 CALL RECLEN 
= 1173 PoP Hi 
ISEC Ale -JR LME ZL 
CHLAO4 RKoli76 LNES4: CALL REFLCE .3NB CARRY CLEAR HERE 
IsE2 11 JR LME2 : : 
: 11 LMES: : sHERE WITH HL -> NEW VARIABLE 
1is LD A, CHL) 
11 Lo CLA 
11 CP 80H 
41 RET 2 ee — VARIABLES LEFT 
116 FUSH HL H(SF) t-> NEW VARIABLE 
11% LI Hl (VARS “) 
11e LO A. CHL) 
11 CP SOH ou 7 : 
a rei Z LMEAZ jVARIABLE DOESN“’T EXIST ALREADY 
cP ¢ : : ‘ 
Liv JAR ZyLMESS #157 BYTES AGREE 
O44 3F 113 FUSH BC | 
O440 X il : POP Bee TEN 
0443 11 FOP EC 
O444 tle EX DE, HL, - 3HL. t-> MEXT GL VARIABLE 
oqas ae JR LMESS SHAVE ANOTHER GO 
11 LMESS: SHERE WHEN 157 BYTES AGREE. 
a i _ GHL => GED VARIABLE, (SP) —> NEW ONE, A = NAME 
O447 E4EO 11 AND GEO 
aay FEAO 1 CP OAOH 
O44k 2012 1 “ik NZ, LMES RIABLE FOUNT 
; 1 sHERE Ta’ CAC REMAINING BYTES OF DSIRE WITH LOMG NAME. 
O44 Ta ; bor De SDE _ » NEW VARTABLE ; 
1 . PUSH HL 5(SP) ¢-> GLI VARIABLE, (SF4+2) #-> NEW VARIABLE 
1 LMES&: ING HL ; . 
1 ING DE 
1203 LL A, (DE) 
1 7 CF CHL) 
tate ai ee LNESS SMISMATCH 
s : 
t212 ns CNC, LES 370 CHECK MORE BYTES 
1213 POP bik sHL et -> OLD VARTABLE 
Zia JR LME4 
215 ; 
1216 LNESS: FOP HL tHL s-> OLD VARTABLE 
bet? JR LMESS 
1 LMEGs FHERE WHEN NEW VARIABLE cise AN OLD VARIABLE 
_ 1 SHL -> OLD VARIABLE, (EP) -> NEW 
OSF SEFF 1 LO Ay- 


CASSETTE TAPE STATEMENTS TAFE 11/23/1932..7TCC FAGE 14 


Loc Of! CODE M STMT SOURCE STATEMENT ‘ ASM S29 
1222 LMES2: 1OUHP | Ceca” erty A = 80H WHEN NEW VARIABLE DOESN’T MATCH ANY 
? 
ss 3 HL 5 SOH, (SP) -> NEW VARIABLE © 
O46) 9 Da POP os 
O4E2 EB a DESL PL §~> NEW RIABLE, DE 3-> GOLD ONE (OR OH) 
ele 36 NC A SET 2 IF AN oto VARIABLE TO DELETE 
144, 3 St 
O4465 cCOdA04 R CALL REFLCE 
0463 1804 JR OLMES 
REPLCEs SREPLACE CLD RECORD (PROGRAM LINE OR VARIABLE) WITH NEW CINE. 
sHL, > agree RECORG 
STF ONC, THEN FROGRMA LINE: IFC THEN VOR IBELE. 
VIF 2, THEN DE -> OLD RECORD To BE DELETED. 
SIF NZ. THEN DE -> BYTE BEFORE WHICH TG INSERT NEW RECORD, 
ES ean eee TO 17S NEW PLACE, & DELETES IT FROM ITS” 
3 ORTG rs) 
$ HL. aurea ORIGINALLY FOLLOWED NEW RECORD (ALLOWING FOR 
3 pice 
SDE :-> BYTE NOH FOLLOWING NEW RECORD IN ITS NEW PLACE. 
;SMASHES A’F* ‘ 
OALA J NZ LAE 
0440 EX AF, AF’ 
O46 LO (X_PTR) HL 
0470 EX DE, HHL, 
O47 x CALL RECLEN 
0474 X CALL DELRE 
0477 EX DE, HL 
0473 LO iat he -FPTR) 
O47B Os) : EX AF 7 fra 
LRE4: i HERE WITH ot, CUE eee IF ere ee 
sHL -> NEW DE IEW PLACE TO INSERT IT. 
: SNC/O SHOWS PROGRAM LINE / VARIABLES 
EX _AF.AF* 
FUSH DE 
x CALL RECLEN 
“LD CXLPTRY HL, RU 
HERE TQ (SP ‘ 
31F PR We” (VARS), 80 WE INSERT A BYTE 
5 E I UoI-VE MOVING (PROG) (BUT ae 
3 ELS > AAREFULLY FRESERVE (PROG) ~ WE CAN bi 
5 THIS En VARIABLES “Ton b Hi THOUT ANY DAMAGE. — 
S1F PROGRAM LINE THEN ye NUSTNG T MOVE (VARS), £0 WE INSERT 
, F ae EXACTLY AT (CSP) (E.LINE) TAKES CARE OF ITSELF. 
s 3 (OG 
EX (SP), HL fHL s-> NEW PLACE 
PUSH BO - ‘ 
EX AF, AF* 
JAR Ca LRES 31F VARIABLE . 
DE HE sTO ENSURE (VARS) GETS MOVED 
x CALL INSERT 
TNC HL 
: JR LRESM ; 
x LRES: : 
LRES: sHL &-> NEW PLA 
sR bs LeNOTH He eNEW RECORD 
i(FP ROG) RESTORED Td ITS VALUE AT LRE4 
sDE *-> MEW RECORD 
4AS ~ Ex EX DE : : 7 = § : ot. Sys 
O4A4 BEDE LOUIK INEW RECORD MOVERS DE s-> BYTE AFTER NEW FLACE 


een rere GERD TS tt po nme ceria cremate Econ pine eee og cml ry age eee 


O4A4G 
O4A7 
O4AS 
O4Ad 
OFAC 

O4AB 


O4AE 
O4AF 


SSETTE TAPE 
: Chess CODE oN 


E1 
C1 


0S 
Choo 
[1 
Cy 


SEF LR 
EHoaoa 


AF 
L t oo a 


7AGAT2 


AE 
on 
SO726F 47 


: AO 


of 
ae Te DGS 


275 YT AS 
Ao 


STATEMENTS 
STNT SOURCE 


NOR CAB Ot 


Tegne 


TAFE LI/ 23/1982 700 
STATEMENT 
POP HL sHL i t-> NEW RECORD IN GLO PLACE 
POP Bt 3 Ea: bs LENGTH OF NEW RECORD 
FUSH DE 
CALL DELREC: . : 
POP DE 
RET 
FHERE FROM SLVM TO CONTINUE RUNNING SAVE 
IX -> A 47 BYTE AREA CONTAINING THE HEALER TG BE WRITTEN, 
. H HL. -> 18T BYTE OF DATA, 
L. 
i 
x 
L 
LA 
SE -YCTVFLAG) 
1 
4 
XOR A tA 35 ZERO CODE BYTE FOR HEADER BLOCK , 
* TALL W TAFE sHEADER . . 
POP IX . . 
LOB, So INOW WAIT ABOUT 15 (So FRAMES). 
HALT 
KINZ LSES : 
LI £, CIX+HDLEN) - 
Lo oD, CIX+HOLEN+1 > 
LL A, OFFH FOR DATA BLOCK 
FOF IX 
JF WUTAFE 


__ 3 SAVE PROMPT 
DEEE 80H 
DEFM “START TAPE, THEN PRESS ANY KEY? 
DEED a afi. 20H 


4 
“BR GRAM: * ‘ 
“OR. 80H ; ‘ ; 


ARRAY: “ 
9H 


: ER ARRAY: “ 
sC)} 


DEFM “BYTES: ¢ 
DEFB “ ° JOR. 30H 
END 


/ / 
4 
TELEVISION | Cee | 11/37 1982. TO PAGE 1 
Lo OES, CODE M STMT SOURCE STATEMENT i : ABM S.'? 
¥ #HEADING TELEVISION j ho 
eLIST ON : | sees 2 Me 
; GL TAL SETTING SE CNET LS iy Cl. LHS, ERRS SETE UR ER gaa STTVCAL &. nTVCU 1 
ELORAL ROATTSs PUTMES: t ELS) TYFUL? SATTEYT OLS 
Rte “ANAL. W oF ‘t SAS 
‘MAL. WROCH, TNE 1. 
: FL ECT sf : 
> ERRU tS x 
TVG iS 4 ON 
NN 
“tt A 1: Dirt, ny ies (aly PRIATEr. : , oN 
“M) chy ae) THEE aaa RE “FACET MES te 
ry Chol MLE ( shee NL. @ TPO) OR THE 
1 _ F . 
Ls ) aL. tres LIN ul PO PRINT CURSOR TN hs BYTE 
1a Te nana eee ASEH TN STE SEEN PRINTED 
= R cirRe . AS BEE 
LURRENT red TION Ts THE 1ST PLACE ON THE NEXT T CINE, 
ts Noy ra Tika A ELANK L NE). : 
god CHOP OL kK 
‘ SVes ee CHAR, FRINTABLE CHAR, OR TOKEN/ GRAPHIC 
pate i es AN A AFTER LOTVCU 
Ong? Zz 
OOOS hoes 300 R 
: 7 j 411 VhERE WEEN CONTROL CHAR 
Ooos FES 412 ne : _ ' 
OOIA See at3 IF CONTROL CHAR UNREC “WWNIZED BECAWSE TOC SMALL. ; 
COO ade 
OOdE 304% 415 1G ;1F CONTROL CHAR gee COGNI ZED BECAUE EO BG 
OoOL F11700 mR 414 CO -COM ee : sHERE WITH A . = CONTROL CHAR (6 TO 17H) 
TN By SF 417 : ‘ os 
OO14 1400 415 
' OOLS i? “yy 
ot7 SE r) Bea ape 
OOLS 1‘? 421 AL vu Ata 
OO? ES 4: PUSH HL. ms . 
OOLA C30FO! kK JF LOT YC SWILL CONTINUE WT TH ROUTINE TO DE AL WITH CONTROL CHAR 
TV_CCE RELATIVE ATH SOF SLUGROUTINES FOR CONTROL CHARS AS- USED 
. ; BY THE TY =N 
ou1p ae : + O46 PRINT COMMA i 
To tag BS - CURSOR LEFT i 
ra + Oo HY - Ct 20 Receait eo .' 4 
a4 + ¢ 3 Re 
Set 3 OF 
Se 3 On 
37 3 A) Re Ks 
St 3 
oF 4 i io 
SE 4 3 41 
ba} #) 47 3 12 
ba 44a 3°13 BR TGHT 
SB “ M4 5 14. CHVERT 
- SA 442 515 8 ~ COVER 
aos ea £4 443 HEEB 3 14: at 
OOZE bai 445 DEFER 3 17 - TAB 
pa 
. 444 SENTER THESE ROUTINES WITH A = CONTROL CHAR & BCHL SET UF AS 
) a 
ee eee y boris eagreenenp fn enn 


ete ‘ Bess oat arn paren end 
fie yt! oie ee Stipe RY, 


is { 
VELEVES ION . 101 11/23/19682_TCC PAGE 2 
OC | OE Pepe M STMT SGURCE STATEMENT ASM 5.9 : 
} ‘ - a 
43 , ’ BY LDTVeU, % * ‘ bade 2 
449 PLLFTs " SBACK SFACE ? 
Ooze of 430 ING ¢ 
goo SEL2 451 a Qs L_LEN+2 
« fp 452 CP 7 at : 
SOL 453 IK NZ LE UNLESS OFF BEGINNING OF LINE 
FOBO14E 454 BIT rene (ly “Y+FLAGE F 
eOUy 455 i JNZ,LETS ‘4 : 
4 ASS j Bo 1 i 
QEO2 457 cs 
SEIS 43g ep Ay TV_LNS 
Ee3 45? . CF OB . i ss . , 
od hal i tee eLPT7 SUNLESS OFF TOP OF SCREEN i ee te 
. D : : oe 
OBZ 434 LETS: LD C,LULEN+1 : 
C3SES03 re LPT7: JP SETTVE 
: ee 4i PLR IMAVE FRINT POSITION ON, widaichietieas BETRENIES BUT NOT CHAR 
0099 SAPLSC 464 L.A. (P_LFLAG) 
OO40 F 467 PUSH AF a 
O40 FIN365701 443 LO ClyY-y YP FLAG) .1.5HL. XOR_CH 
ee | SE2O iy. LU A, SPACE 
o033 CL7101 R 470 CALL FROTYL 
OOS6 Fl 471 FOF AF 
QOS7 Jey. 5c 472 LD (PFLAG) A 
OOEA Cy 434 RET 
474 
FOCHOL4E ATS PLINLE BIT CRs C1Y-Y+FLAGS) 
C2000 X 476 IP ONZ DUMPFR fir: PRINTER 
OEZL 477 LIC LULENt+I 
Cheto2 R 473 fee , VFUL? : 
OS 47? DEC: 
0663 C€3ES03 R ao JP SETTVE i 
i a4 i ; 
462 FLCOM: SPRINT COMMA ‘ v4 ‘2 . 
483 SSERT LOLEN= 32 : ; j 
OO6E COOFOL 42/4 
Ode 45 - i 
QO6F oh 454 
0070 30 437 ; 
OO71 E410 435 ; 
Oon73 150. Ped alk Wi “TAB : : i ' 
“Pa : ne y 
. 4Zio PLIGN: _ 9 FOR UNRECOGNIZED CONTROL, PRINT <3- ! 
007% SEF 4372 LE A, “Pe 
0077 1540 33 IR LSV7 
49 
‘ 4935 STE SHERE WHEN BYTE IS 197 MATA BYTE OF A 3-RYTE COMPO ‘ITE CHAR. 
ADS 3 (I.E. 2 BYTES biel YET DEALT WITH, THE CURRENT NE BEING 
497 3 THE FIRE “TOF THEM). 
qv SENTRY IS EFFECTED BY HAVING THE KEYBYTE ais THE WRCH ‘ 
477 5 ADDRESS OF THE CURRENT CHANNEL (EK, S OR F), 
0O/7 R300 LO De, VL 
GO7E af Lo (Tv GUATATLD, A $CTYDATAt1) ¢= 187 DATA BYTE : 
OO7F z JdROLPC 
204 FLAT: THERE TO DEAL WITH CONTROL. Be AT OR TAR 
Oo 1 tage R Sos * LOE DE,S_TV_2 SUNUSUAL WRCH ADDRESS FOR CURRENT CHANNEL 
ans4 203 SOg JR LES 
207 ‘ 
4 BE an meme 


TELEVISION Ig! 


QOAS 44 
OOAS 4a 


OOK7 
Von? 
QOUARA 
CUI: 
OOAE 
OORF 
CHES 
OOS 
OOK7 
OOS 
CTY iy} 
Cc: 
oOorRn 
OOKE 


4 LSAT: 


Ligases 


wOcE — 70 


on 


WR. TAB? 


55 
batt 
Eid 
S4 


1 
2 
= 


OOLF COOOL R 


anne 
PA 
ne tt 


Leis 
sHERE To 


sSET PRINT 


LL : : 
SAS sWHENCE ERROR B 


AbD “A,2 

Lo oA 2 
BUY FR, CLY-Y4+FL AG 
JK N22 15AS 


i Ne Ae s) 
Lb BA 
I NCB 


le Cana ue 


a Wetas 


nae PF LWLEN=32 
-NOT. (Lo EN= 
e ROR IN ASSERT TON 


CALL LOTVcu 
L 


Dm 
sf 
Hi 


EXECUTE AT 


FOEN TO 


A 
17 B= O RoR TOP LINE, C = 


s) 


EXECUTE TA 


< TAB pe 


S3-0, THE 
A MOD 32. 


LL/25/ 1982 TOC PAGE 3 
toc OBJ CODE M STMT SOURCE STATENENT ASM FL? 
ee , ‘. 503 P_COLS sHERE TO DEAL WITH CONTROL FOR FORE, BACK, FLASH, BRIGHT: -: whew ghisil 
. ft $09 ' INVERT OR OVER. oe Me Gey os 
OOS 119300 R 510° LO DE, STV_1 Largs aie oc popeS S FOR CURRENT Lieenet : ; : 
OOS? B20ESC Sli LpPcs: LD (TYDATA),A tae ATA) &= KEYBYTE “OF COMPOSTTE CHAR 
Zi Sie LRCo: THERE TO REPLACE RCH ADPRESS OF APPROPRIATE CHANNEL (EK, S OR 
ie : S13 ; a P) WIT DE 
oosc ZASISC st LO HL, (CURCHL) 
OOF 73 SS LO (HL).E 
— OO70 23 rae ING tt 3 
. OOPL ié S17 LD (HL) oD 
oov2 9 Zig “RET ; 
5 
Seo STV SPROCKES FINGAL DO EPO? A _COMPODITE CUARACTER. 
el HA TVBATA? i fOr Cie, YE, pane TAR CTUBATATLD TE ee CATA BYTE. 
822 # LAS Te 
S23 ica L ba) HERE IS HABE” BY HAVING THE WRCH ADDRESS For THE CURRENT 
S24 CHANNEL (EK, S 0R F) CHANGED. 
110000 R S25 LO DE, =ENDTV ; 
CHaced R S24 CALL LPC aRE STORE USUAL WROH ATNRESS 
ZAQESC & LU HL, (TYDATA) $l i= KEYBYTE, tH oe PENULTIMATE DATA BYTE (WHERE 
£7 ) LA 3 at TCr BINTE, ». 
if TELE 
OOAD HAVO xX a wee OR OVER, 
QOAS AOZ9 i1f_ TAL 


CONTROL? H = LINE, BD = COLUMN 


Fur: 


S rae FRINT AT EC. 
» FOR ‘LEFT HAND COLUMN. 


s1F B > TYV_LNS-2 


SF IN BOTTOM FART OF SCREEN 


i CONTROL: H= LS. Db = MS BYTES OF. TAB FON. 


cect. WRITING SPACES 
TAB i 1G IN OF THE CO sale Nil. & LET 
0 <= f= 32, 0 <= A’ Bi. 


“ra 


4 it 


TELEVISIC 1o_} LI/ES/ PESTO PACK 4 : : 
Loc ; bps “cave M STMT SOURCE STATEMENT Aah &.°? eae { 
‘Sb6 . VIF AY P=_0%. THEN NG. SPACES ya FE OUTEUT = A a4 8 Ac se- -33 oe a. ae # 
S47 f) — AtC-1 (MOK 32). {<_* HERE MEA Ne “1S CO ORUENT TO ; Gt 4 
2 SIF A? < Of, CY fe Bes THEN NO. SPACES = C-1 70 OVER UP" 19. END * Toot a 3 4 
3 SF ae” cot LB), TO GET TO RIGHT. “TAB POSNs fN ALL, A’HE-P: i i “ ; 
f oo k ‘ , oe 
HIF wet <r THEM cay mee AS O, SONG. SPACES = AX = A*4C-1 a tt 
= wy Ba). ‘ F 
73 11H Ss IN ANY ara NO. SPACES AtC-1 (MOD 329) & SINCE IT LIES ; 
o7A PETWEEN O & a4, 27 MUST BE (AtC~1) MOD Se. . : ee 
oone Bt S75 ann Ae ar 
' 9ob3 . 3b S76 Heo A . ' i % 
» OOD4  ESLF 377 ND 34 € A re ye a 
QOS C3 ‘ o7& ET Z , :1F NO MOVEMENT REGUIRED ‘ : be gb Nae or See 
aa) Og S7 és a7? . LO fA : ; a oy PaaS bey 
Ooty F 0 SET SFC, (LY ~YtFLAG ) y 
oobe | 3 : Lupe: LOAM 
OODE C K CALL FROTV2 
OOEL 1% DE 
Q0E2  Z0F3 JK NZ» LWE2 
ook4. CF RET ; ; ; 
OOES COs001 RK Lov7s CALL FRE ty . ; . va ba 
STTVCUE STORE TY CURSORS . ok: 
is_ FOSN) a Be OR (PLFOSN) $= C, & ‘ ‘ : Pl eae 
; (CIF wc aR (PRCC) #= HL. a ee 
s PRESERVE 
Ebene EAT Pry AY ~YtFLAGS ) 
JR NZ ASU7 IF PRINTER 
Fic hozae : HIT LH )TVFLAG) ; ; 4 ae 
z NZL 5 sFOR LOWER HALF OF SCREEN ' al Bw hs 
ba LY (S.POSN : ‘ 
NY re § Lo (RELCE) HL ; ara 
OOF B = ‘ RET ! ney : ae : 
OOF 400 Lois A 
O1goa GO 
O104 602 ' 
O107 LAYS : 
£04 
a¢pas = 608 LSlizs 
O1Ob = 22 6 
QLOE C2 ¢ i . 
ay LETVCUs 15 7 - : 
rae } (ETC), HL #= (DF-CC) (ETC). : 
OLOF FREBOLAE é1z y PR EY i 
OVI 2044 413 p NZ o LA ;1F FRINTER . 
OLAS . EDA be att 414 - ty (SP , 
OLLe é1s Lo HL (ld?) 
OL11e iN BOZAS 414 BIT LHS. (TY-V+TVFLAG) 
O120 oo 417 RET Z a SIF UFFER HALF 
OSL  EDMBSASC 413 fh Bi, (SPOSNL) 
Q1Z9 ZRBC bly Lo HL, (BFOCL) 
Olea C9 6 ’ RET 
Oley FDAEAS 4 LLUZs LOG, (1Y-Y+P— FOrM) ‘ \ 
O126 — ZASOSC é LO AL, (PROCC) 
OLZF Cc? be RET 
£2 PROTVE # SUBROUTINE TO PRINT CHAR A. |. 
: 3 BC ra ahaa (S_PO5N) OR (SPOSNL)» HL = VALUE FOR (DF_CC) OR 
. 3 Fit 
AED SUSES ACF 


poeta EE OT ES NE EE 


TELEVISIGN ~ pipe ie 2 TEE ’ PAGE 5 
LOC. OB! CODE M STMT SOURCE ATATEMENT ‘ PAeh 5.9 os 
1130 60 FESO 630° CF GOH j iat 
-O132 Soa 631 JR CPR 7 ASCII CHAR : 
432 ny HERE iF Ghariite: (STANDARD OR USER-DEFINED) OR TOKEN 
633 ASZERT. sth -GR=30H ¥ 
COND NOT. (ETE. Ch) 
ERROR In ASSERTION STO GR RO 
NT: % 
0134 FE9O G34 CF UG GK 
Q136 3026 639 JR NG VLFVS - SUNLESS STANDIART GRAPHIC 
OL33 AF. 626 lh ELA sB t= CHAR CODE 
Q13? epaaet &37 CALL LFEV27 
OLsc “DOF O RK 639 CALL LoTVvcu : > Dae 
LSE 11925C &39 Lo pe sfenbor See ee eae ete ec 
O142 1247 ety AR OL sus. eae cee eae 
642 LPV278 SSUEROUTINE TO CONSTRUCT STANIARD GRAPHIC IN CALCTR MEMORY. 
ee 443 tho = CHAR CODE 
Z1L9725C — &q4 Le HL. MENGOT See . ha oo 
Ch4aol RK é45 CALL LPVE72 SNOW DO THE REST TWICE, ONCE FOR EACH HALF GF THE CHAR 
CHS £46 LPV272% RR 2 
oF 647 Sho ALA : isis 
E4OF 644 ANL OOOO! LLB aaa — ee a nt on 
4F &4 Li CA 3C NOW OK IN RIGHT HAND QUARTER ees 
Care ear pee. f i. 
4 Sh: : 
COFO é ANT Sif oooon 7A OK TN LEFT HANG CHARTER 
BL OR A b= EVIE FOR SCAN O OR 4 fee aa fe 
OE OF Li t.4 sc 3= SCAN COUNT: . Prone: 
Yi ie LFV2743 Lit (HL)LA ; ; aes 
23 TN HL i 
(a) | aa 
ZOFE JR ONZ, LEV274 
Ly RET 
440 
LEAS 6414 LFV38 SHE ue ‘ 
BOO bh2 KONI LEM 31F TOKEN ' i oe 
veto ae Aa [uke “LID GR SHERE IF USER-UEFINED GRAPHIC f ; 
ETAB7 BSC 463 Li Bo, CU) ; ; : 
1306 es wl LEVYS . i 
chicos F éé LFV4s CALL. PUTSYM SHERE TF TOKEN ; : 
C30F O1 RK rex JP LOTVCU 
ia) 
G71 FRATVL3 3AS PROTV, BUT AT THIS STAGE THE CHAR A MUST BE A SINGLE 
oe 672 ; FRINTABLE CHAR. 
O17) 473 PUSH : toe 
O17 &7A Lo Uc, (CHAR) ae, 
675 LEVS3 HERE AS FR. TV1, PUT WITH SCREEN COORDS SAVED ON STACK & 
ort &7e, H BC ~> BASE OF CHAR. SET (OF WHICH WE WANT ATH CHAR). 
O17E 47 EX ME, FL i DE t-> FOGN IN DISPLAY FILE 
177 47 SUR FLAGS 
GI7A 7 hes : 
Wa wi NZ LEYS SUNLESS SPACE oe te 
ET SFC tH) 3 THEN ! SLiPPRESS INITIAL SFACE IN FOLLOWING TOKEN 
LFVSZ: ft Hee , 
LO LA ; ; 
ABD HL HL ; i 
Ag HL HL i 
abn HL, AL : t : . : 
AbD HL» BC HHL #-3 DOT PATTERN IN CHARACTER SET 
t's “ap i 
GIO EX DE,HL 


| 
| 
. 
i 


aces 


Ce ro tk SS ot en Line, oceans ew mac mE tes 


TELEVISION 
Loc OBJ CODE M STMT SOURCE 
ae LPVés 
r Pa Wey stele » : 
PLCHOLE 
Zao 16 oy 
iis 7 
Fa Xx 
pi 7 
7? 
by 7ON LPVGS8 
704 
CC4102 R 707 
O1 703 
709 
710 
; 744 
OLAS cs 712 
O1AG ES 713 
714 
OLAZ SA? 1SC 7AS 
OLAA OGFF 716 
OLAC LF 717 
Oat SOO 718 
OLAF 04 At 
OLBO IF 720° LPV7S: 
GibL IF 721 


LFVZ'Ss 
LFV7é3 


LFV77:s 


ia 


as oe L1/23/1982_ TOC PAGE & 
STATEMENT ASM 3.9 
FH HERE “Har Piet -TV4, BUT it aa OF A WE HAVE DE -> BIT bs IN .. 
LO ALC 
DEC A 
Li AVL_LEN+I 
WE NZL PUL HUNLESS WANT NEW LINE (FOR C=1) 
DEC is 
Lo c.A = LLLEMGL 
ne PR (LY -YtFLA Age) 4 
JR Ady “Sale FUINLESS PRINTER | 
JUMPPR 
FA Fe LENG | _ sors bet 
fA LOLEN+L, BC} = SCREEN COORDS (C <> 1), 
VELL? TIF BEGINNING OF NEW LINE 
HERE ae PUT CHAK IN DISPLAY F 
BC: SCREEN COORDS, HL => ¢ CURRENT POSN IN DISPLAY FILE. 
“TE > BIT ROW IN CHAR SET 
(XORCH=0) AND. CINV_E H=2) | 
» (CXOR CH=O) LANE. TINVICH2)) | 
ASSERTION (xXoR -CHEO). AND. CINV_CH=2) 
FLAG) 
RRA wae ein 3 oo 
Wer get v7? 71F XORING NEW CHAR INTO Ct 
“it - 
BRA SNOW B= -1 IF XGRING, O IF NOT 
RA : 
SI ALA \ a 
LO Cf a er TING NEW CHAR, © IF NOT 
fh A, sFry | ; 
ANL A 
BIT Pits (ty- YHFLAGS) 
WK ZL PV7S FIP NOT PRINTER, | WITH CARRY CLEAR 
: PRILEFTs (1Y-Y+FLA AGE) i 
EX WE. HL : i : + 
EX AF, AF’ : sTO SAVE SCAM COLINT wut USE EX AF, AF’ HERE ### 
tA, (DIE) $A t= OLO BIT Rib rn ee 
AND I $A e= OLE BIT Rei) i XORING, O TF NOT 
Xe hb) sXOR IN NEW ALT Re 
XU FAME TE ANT T 
LO nl A pemeell: m 
EX AF, AF” fre ds 
Pa i 1 DLEPVS sr FR = I 
ING 30L t-be NEXT SCAN IN DISPLAY FILE 
ie Hv stil. t-> NEXT BIT ROW TM ChARAC TER SET 
tet 4 é 
gi HZ, LFVZ74 31 NORE SCANS 
x DEY AL 7 
Fie: ui st t—-> LAST SIAN 
LOT FR CLY-Y+F Lats ) 
CALL Z,ATTBYT e fe 
FOP HL st. f=? TOR So AN, ar CHAR IN DISPLAY FILE 
POP BE tHE t= SCREEN COORKS 
BEC: C: t 
IN® HL 
KET 


TELEVISION 


Loc a) wees “ STMT SOURC E 


o3 


pals) 


OLDE 
O1EO 3E20 
O1EZ 3 
O1E3 SE 
OLEA OS 
O1ES 1SE6 
O1E7 7 
O1EQ = OF 
Ole? OF 
O1EA OF 
O1EB . £603 
OLED F653 
OLEF G7. 
alr ENSBOr oe 
ona 7E 
O1FS AB 
O1FS AZ 

a ae: 
LES FRCES776 
OLFC 2803 


O216. ES. 

O317 2400 

OL E'3_ 

QeiA 1304 
110000 
FS 


PP ee TH, 
oops 


BL SFr 
7 et 


Liem ee 
NUD 


oy 
mS 
a 


t 


WIN SE NSS 


760 


IPRS 
Beishe 


SNR 
hee OS SND 


re 


SINS 
Oe 


SEN NINININININS 
am 


Co 
lal htm & 


NE 


Sutin CIN 


SE 
NS 


As 


MEN) DNNNANS 


NPS 


Lpvas EX AF, AF” HERE FOR NEXT SCAN WHEN USING FRINTER 
LB A, 20H fot 
ADL ALE 
LEELA 
EX AF. AF: 
JK LPY77 
ATTBYTs SFIXES ATTRIBUTE EYTI 
; sHL -> ANY SCAN OF EnAGESPONDING CHAR IN GISPLAY FILE. 
LD AH sNOW FIX pres BYTE 
RRCA 
RCA 
ARCA 
AND GO0G001 1B 
Ok OL01 LOO0E 
LD WA itt. Bente ATTRIBUTE WYTE 7 
LO GE, (ATTRA) jE a= NEW ATTRIBUTES, Tr t= 2 MASE 
Lo fa (HL) 
XOR E ‘ 
ANL ig pA 1] 0 FOR O MASK, OLB (tor NEW FOR 1 MASE. 
OR E 1A t= HW FOR Oy GLO F OR A 
BIT Ei. CF, C1Y~ VAP _FLAG) 
JR Zi LATS : : 
SNOW Want BACK “OR CHIMTE ia COME EAST Wy HUA FOREGROUND: 
' (1.6. WHITE To la = BLACK HE, RED OR MAGENTA - 
3 WHICH TS 7F GREEN TS AR: ENT oa BLACK TF FOREGROUND = 
3 WHITE, YELLOW, CYAN OR GREEN) 
AND .NOT. (7. SHL. BACKG 7 BACK GROUNED @= BLACK 
BIT FOREG+HGREEN,A _ 
Al NZL 3 s1F GREEN PRESENT IN pase enn 
e XOR 72° rina TELSE BACKGRGUME = WUTT 
LATS: BIT F mateet | Nar: FLAG) 
JR Z, CATA 
SNOW WANT FOREGROUND 3 = COMPLEMENT BACKGROUND 
ANE JNOT. (7. SHL. eee) FFOREGROUNE 3= LACE 
HIT Bark +OKEEN 
JWR NZ 71.AT4 oie hee FRESCNT IN BACKGROUND 
XCiK EL. FOREG sELSE FOREGROUND s= WHITE 
LAT4s 1.6 CHLDA 
RET 
PUTME Se SPRINT ATH MESSAGE Ta TV OR PRINTER? DE -> 1TH. 
PUSH HL 
LO HO. 
EX (oP) HL cre : 
AR Lie NE, male MS BYTE OF (SP), To INHIBIT SFACE AFTER 
; 5 
FUTSYM SEXFAND & PRINT TAN “TOKEN TO CURRENT CHANNEL. 
1.0 TE. Tar KENS 
BUSH AF 
LOK Ze 2 ae ; 
aK SUNLESS WANT SFRACE FIRST 
A," i 
it bee, (Ye -YtFLAGE) : . re 
CALA. PRTV2 SUNLESS SPACE SUPPRESSED BY FRECERING SPACE 
LOK Ss tii fis CHIE) 
AND 7H 
CALL ER.TVZ . 
Lu A, (LE) ; 
INC DE 
ADL a) 
JR ONC LDKS 3 UNLESS LAST CHAR 
PoP DE 30 2= TOKEN NO. 
c i atti. Y 


} 
} 


j 
{ 
i 
| 


ja 1 VA/23/1982_TC" FAGE 7 
STATEMENT . ASH S27 


eh ce ee eee “gs ly he nee RAS 


% 
atts nt 


ELEVISION Tut 11/23/1982 700 FAGE = & ; 
TEbE OB.) CODE M STMT SOURCE STATEMENT ASM 3.9 ' 
" FEM CP DULL ARK 2 : ef SS py Sa 
a a abun . , : ’ . 4 a . 
FET e, t 3s EXIT IF LAST CHAR NOT ALFHANUMERTO CR ‘ 
LOK Ss p 
cP Tek N-TOKO 
RET ¢ tNO SPACE LSETER, NULLARY. OPERATORS 
LD A, SPACE ELSE TRAILING SPACE : 
PR.TV2t pea ne tRST RCH, BUT PRESERVING ‘DEBS e°D°E- "HL? & USING BCHL 
: ey 
EXX 
RST WRC ‘ 
RST WRCH *, “| 
Bxs y an p 
uP DE, 
RET i 
MESTXT# 4 HE 3 Je TEXT F FOR ATH NESSAGE IN A LIST STARTING AT (DE), 
iE MESSAGE J TEF MINOTET By a CHARACTER. WITH BIT 7 SET. 
5 SRESETS CARRY le TOKEN NORMALLY | WAS A SPACE BEFORE 
bn 5 CIN FARTICULAR IF NEU TNA ac¢ B= TRA TORG = ABOUT BO). 
7 {PRESERVES BCHL , 
3 PUSH AF 
Po EX GE s HL 
40 : . INC A : F : 
gal LST4: BIT Ze sth + ELSE SCAN FAST EARLIER MEMBERS OF LIST : 
t 2 7 aot 
oa ; UNLESS END OF -WORK 
B45 § COUNT WORDS 
344 + HERE WHEN HL -> REGO TEXT 
e4% VIF FUNCTION, NAME r 


TVFUL 78 s CHECKS gest i ea POSITION ry PITS OM TV SCREEN OR NOT. 
SCRETURNS 4 BH IF PRINTER. ) 3, i ? 
STHIS FOUTT 1) WHEN A CHAR TS TO BE cee AT THE i 
3 BEGINNI Sy nae A NL IS FRINTEN, . { ‘ 
’ q , 
7 5 IN Tit Ln iM CAPTIONS with Al.t. POSS TELE ae: 
ora) ; FACILTTINE IE Y NOT Be NECESSARY D . Bt hy 2 
Bo $ NOTE THAT LN CROLL 1 THE Tae HALF . . a: oe 
42 SIN UPPER HALES Tue UF TF p ve OT >, sue N WILL SCROLL UP : ; oS 
q § rN Ee PROVIDER THAT. = (1 )3 ELSE ERROR S (SCREEN Ue 3 
$ “LILL. j 
a) i NE TF TW TING AUTOMATIC LISTING, CHECKS To SEE WHETHER IT c 
és ; 1S TIME TO STOP. ie ae 
7 SIN LOWER HALES FULL UP TE (OF 82) <¢ IV. LN 48 ~E. THEN SCROLL UF 
4 3 _TVLENS#t-B- (OF 52) LINES» ERROR 5 IF B ie 
th i 1F SLO, THEN OL AT oe IN NEW LI Et EL FRESERVES HL, 
TAN : One hese" a 7 aiso'B B EXCEPT WHE EN SC Ae ING” UPPER HALE 
872 : an LEFTY THEN FINDS Hes uP MITEL SETTVC. 
0261  FUCKO14E 372 EIT FR) C1Y-Y+FLAGS : ' 
O265 Co 374 RET NZ IF PRINTER 
wzeg IL LESOS RO e7s LO DE, SETTVC P 
o249 DS 374 PUSH DE ;RETURNS ARE VIA SETTVC 
OZeA (ee a77 LO A,B 
O22B FDCBO2Z4G 373 BIT LHe, (1IY-Y+tTVFLAG) 


TELEVISION _ ae OGL ne L227 19a2 700 FAGE 9 
Loc OBJ CODE M STMT SOURCE STATEMENT AEM LF 
R S1F_LOWER HALF ae 
cee a) te Miyt Vsr_87) (NOTE t~ HERE WE KNOW THAT C= LOLENEA | 0° 3h at. 
wk be aia t1F B << (EF_SZ) we 1s JHIS “FO assIBLe? tHe eee rok 
RET TIF ON Sc SREEN - 
206 bat Mist, CTY-Y4TVELAG) 
Wn LT + UNLESS IN ALITAMATIC LISTING ; 
i a Ey “Y+EIREG ) ee j 
a UNLESS HAVE STARTED LINE AFTER CURRENT : a 
‘ aa : : ie 
- ‘LECT ae mG We 
ES * ASTSP) oats vee i 
AG » CLY-Y¥+TVFLAG) aa : a ed A ig 
A * x 
SERKOK S) RUN GUT OF SCKEEN | ‘ 
CF pe 
04 | 
. 
HERE NEN NANT. TO- SCROLL! IF THIS WOULD SCROLL GFF SOMETHING 
THAT T USER, HASN’T HAD A CHANCE Ta SEE, THEN WAIT FOR 
2 Dik ro TYEE SOMETHING. 
FUS552 +50 
ZOgs . ‘A 
S13 
oO 
S28c8¢ 
) ' ‘ Be 
ATTRT+#1 5 A, AE Ra : mi 
Lo Tis (ATTRAT) : i caer cae a ths eae | 
FUSH HL. ag. “ad . : aes ; a 
LO Ay (E-FLAG) Pa Re ee } 
PUSH AF SAVE OLE! COLOUR FARANETERS a ae ee ere 
Lb a HID. ao fet @ eee eget beh | 
: i i 4 : 
4 ; 
~Y+TVFLAG) i 7 PRE Pet 
| An as . ' nye Tank Eo” Pg 
, | : . A . r 
. : ore foe i, i 4 
STO PRESERVE EVC’D’EHSLS Nd | 
i 
SIF CN’ OR “N? ; ies 
3 
“OFA a i 
Se7 150 LE (PLELAG)A ‘ 
E FOF HL : ‘ 
Ser Sc LO (ATTRA) HLS RES TORE on COLOUR PARAMETERS 
LTLSe: THERE FOR TOF HALE SCROLL? BOTTOM HALF 1S CLEAR (ALTHOUGH 
std (he sz) MIGHT NOT BE 2), BIT LHS ce (TVFLAG) TS CLEAR. 
OZ0E CLOAO4 Kk CALL SCR po ne nie 
FAT THIS POINT THE ESTTOM HALF SHOULD BE CLEAR, BUT THE COLOURS 


r —eecreren 100 Oy . . - FE Se ers coreg pe Rp tne ae SiR ERE He RS IR gp pie Se gneT Et ente ene St tee Ba genie Dg FEES C05." —" ORME RE YEENCAe <*> sare pmmmene eet atte rece, 


TELEVIS IGN IQ_1_ 11/23/1982 Tee PAGE 10 ; 
LOC OBJ CODE M STMT SOURCE STATEMENT ASM S.¢ . 
4 wee ’ NEED ADWESTING, THE BOTTOM LINE OF THE Top HALE 13 THE fae ee he 
‘ ; COLOUR OF THE BOTTOM HALF, WHILE THE BOTTOM LINE OF THE: i 
‘ ' BOTTOM HALF FS THE PERMANENT BACKG OUND Gobo. FUE SWAP 


’ THE ATTRIBUTES OF THESE TWO LINES 
no Be cy! Ye 232) ' 


Lo tat. -LENtL 
CALL LIN. BL TH => BOTTOM LINE OF TOF HALE 


fica we . 


hee 
E21 


; AND Asia ett bE Lo : : \ : & ee : 
ch tha ee AT BYTE OF START OF BOTTOM LINE OF TOP | 
te He Tee HeTV. ths- 1). LEN HALF 
Ll , ‘ 


Sbeennm 


LTL38S: Cb (LE). a 


WENEET DUES TH 


Sime Dat 
‘Th 
> 


HL 
hnz! LTL Gas : 
er ne 16C ¢= UPPER HALF COORDS FOR SETTYC 
A = ’ 7 


O303 


~ a304 SCRREG: 
O30s 
O30B 


63726F 


NL OE ee atm ee 


ered 


Voi 0H 
ERRDs 


TERROR 0, BREAK FEY FRESSEN 


i) BOC Ce ' 


LTL4s 


k La ARK S 31 TRYING TO MAKE (DFLSZ) be TVLLNG 
ABL A, CLY-Y+OF_ 52) ; 
SUL TVLLNS +1 ssceitaiey the se dec 

NC TF ON SCREEN 


CICcrest 


jh ts (PFLAG) 
\ 


LTLSs 


Teccrares 
Zerrer 


LHL A PING (OF_LSZ) 


CF (HL) : ue 
By Oe atx) - SCROLL ee ess HALF WON'T COVER FRINT PON IN TOP aia 
NO (S_FOSN) + 
LLB, TV. LIS 
LTLSS: CALL SCRL_B 
FUP AF 


R 1000 
1 1001 


e- i 4 im Py ee ‘ HH OR. aes Saks Gaurd Srp heed eae ade ig 


TELEVISIUN IOLt AY/23/ 1982S TCO FAGE 11 


Loc OBJ CODE M SINT SOURCE STATENENT ASM 5.9 
ote. 1002 5, | BEC A . : 6 bet 
eer oat mpere ees, on a habe Je TO SCROLL AGAIN ; oat ' . PR ye arg gee 
aye aa oo : sy > ap eee, 
Pct Lo (iy YtPLFLAG) Lb i 
boo’, Por ik 
Lug? Li (ATTRA T) oth. : 
‘ : ; Liars LE Bl CSN) : 
GRA FCHOZS fous ORES LHSo CLY+Y+TVEL AG) 
a GCHESO3 FR Loto CALL SE TC UR ae nb tes ; oe 
ODS. FOCBOLCE att BE LHS, (1Y-Y4TVELAG) ; : fh, Bae PIA ag 
: Q 37 ae | Ole OM i: oe . : : . bay oy a a a 
ORS LP : og oe REE ; ty : ate A He, at 


ik Y ALL ae, sTCMILARA ay ALL LT he PERHANEEY ATTRITITES, ACCORDING ‘Tl BIT 


“of RVES CDE : 
PSATTR.F+L) ANIL. (MASK,.T=ATTR.T+1) 

KP EATIR FL) AND. CHASE THATTRT4+1)) 
TION (MASE_PSATTROP EL) AND. (MASETSATTR.TH1) 


On A 

Cu HL, GATTREF) 

EUV Aa, (LY YETVE LAG 
lk a ads Sots 
La Hiss sas O FOR (NATED) f= NEW THROUGHOUT 

sds Lo Ly (LY-YeEOROCR) SPU (ATTR.T) 
LIS: Lo lee Ta HL : 
Hl PT LAG 


Pa NZ, LAR a FORK LOWER HALF, WITH A = oO 


LAs: XOR CHI. pHERS TQ UPDATE (FLFLAG) WITH NEW BITS 6420 NA 
t 
AND S16}o101B F i 
AL CEL) : 
LU (HLA A 


| RET 
Bocbins 
CLL: 


Ose 


1 
O377 OBGOS K CALL CLS “3 
AT TOr TH LINES TO BORDER COLGUR, | 
BROUND COLOUR, we Boe 
PER Res. ; : : 


CEI 8 POWER HALF EME 
i ee eh oO (MOT EXPECTING DATA BYTES FOR 
i F ial ges) . 

TUPLE 


k 
SECTVULMS-2) #LLLEN 
_F) 


WITH B= 2 + NO, LINES TO BE CLEARED TQ FERNT BACKGD. 


1040 Lh (HED oA 


1041 i) x 
1042 Pa NZ. Lind 


tbe 


TELE ISTS 
Lut 


OSE? 


On CODE 


10) OF7 
FD383102 


CAS ey eal 
40000 


OULIMNNNN DN E 
De CO Teaty ane F 


ron 


21000 Ts) 


S2LOOsDn 
FOCKOI4E 
2012 

73 

PIC hOL 4G 


FRSE3 1 
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f 
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1 
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STMT 


Be 
O4 
O6* 


10 


Se, 


€ 


TUNED A Sete 


it... : LL/238/ 1982 7O" PAGE 32 


SOURCE STATEMENT ASM 5.9 

LOSS: p. Ne 1°32 a 
+ OF 329 2 

LHHOME s LOWER HALF bic 
sSELECTS CHANNEL K & rete It TO STATE 0. 
7 COPOSNL) & COFORL) t-> HOME. 


LD AHIDLE 
“Th tity COUCH 
1B Bs SENLTY 
LLH2e LB (HL DoE 


a at 1) 
Lo bey INA 
oF 


AR SRESET INCH ANDRESS THE 22ND TIME ROUND 

LD Ba, 2 Uiy-LNS-4 Abd +L EN + 1 

JR SETCUR 

CLSs s CLEAR ENTIRE SCREEN TO re [SSOne NT BACK GRO ND co IL.CHLIK 

7 TEMPORARY COL Nea PARAMETERS FERMANENT 
ne SETS: CHANN ears ie ee To STATE © (1. a NOT EXPECTING DATA FOR 
; ‘8-2 TOP LEFT-HAND CORNER, 
5 sf $—- START. GF 2ZND LINE JIN LOWER HALF. 
iF S.! HA ANNES S. : 
i AIT ALOS OF (FLAGS 
5 "T) ¢= 1 TO JNHIBIT ALL SCROLLS 
5 SN“T CHANGE (DF_SZ). 


_. §RESET CHANNEL & TO STATE 0° 
a’ { T) ? 1 
S564. EM 6b 


¢ CDF GE) (ETC) $0 THAT 


Ice CEL 
HHT BE Lune it “WiLL BE ONE MORE 
a RY Sy mF 
He uSTTIGN I {8 ACTUALLY ON THE SCREEN. 
AL 
LD HI, PRAUF 
TAT BR, C1Y-Y+E LAGE) 
“i MZ LSCA SIF PRINTER : 
L 
EK ze +1 
ADK As LY-Y+DR.32) 


SUE 24 


wd 


PELEVIS LON 
Lot 


- Oak 
Haau 
Q Oe 
Chg 
O44 
O406 
0407 


‘O400" 


o4nr 
O-or 

ould 
a4 


A 


fae 


ish MMOD IN hich 


Of CODE M : 


= 


Hab rime HEY 


on. 


be 


= 
e 
‘= 


Ree eee 


Cm AICHE DE 


ed 


be pom et ts pee ph etna ets Jonte Gm Der ute fats et em pats mtr Guat ot 
Fath Sets dase Dee jn geet et Gets fn ite ine Ge fe > fae Gt nets cet 


DP SD BBL aL hha 
Sage OSES 2 


ab 


IS 
ft 


r~ 
t 


oR hoe SN 


mi 


SUN AN ER SENSE NG NGS CR ER ER ERS et I 


LS 
eer, 


CONE 


he 


ON toh 


PL Ghee 


eh fm fomncin foe foe fee ents Fos jpn me pms Sma ime fe (mmf jh: fume ae cs eu Sie pnts kh free ete: es ft int dh fe 
~’ 


(Qeses gees eaters uint! emt psec jeg sete fine fabs feet feet mtr mh. ote et Pate finch ets fms fame ems Der mim pe fate Pat nts ate: um tn Pete ee tne ate fem 


TO_t 
E STATEMENT 


PUSH BC 
BoA 
CALL LINBU 


UP STTVCU 


a gala 


LD BTV. ins- 


Loup 


mey 


ERT 
CAND Twat . 
ERROR TN AS 


fon Pee 0 wef 


Lb 7 
ARG PH. Bt 
ae GPEH 


N7-CS83 

Por pie 
ING H 

Aor Ye 
De « 

aK NZib 
CALL 2 
LL fiL, 


ADD UL. BE 
EX fe Hk 


* 
em ion 2 WR, 


A1I/23/1982_ TOC PAGE 


Mert A, 
BOTT TOM 
. 11 


SUP ENTIRE. SCREEN 


Le BOTTOM Tees AE TY ae CEN, 
(USING PERMANENT BACKGROUND Soy Sa OR BORDER 
peCOPOYHE TO TILT EHS OF” CTUPLAG 


i SANs, WE GaROLL WE ALL THE tIMES 
Coas LEN: 

ANT. CTE MGs 4). ANT. OM. ath 

32) AND. (TV_i NS324). AN . (DF TLE=4000H)) 

IN. (LOLEN&22) ANT, (TV. Sa24). AND. (DF TLE=4000H) 


pHL t-> START OF TOF SCAN OF. 15 et LINE TO BE SCROLLED 
3FOR THE @ SCANS i 


stl os-> START GF CURRENT ec AN CF JST LINE FOR SCROLLING 
SA 3= NO, OF LINES TO BE SCROLILED 


UNLESS went qa SCROLL COMPLETE BLOCK GF @ LINES 


(DE #-> LAST LINE IN PREVIOUS Bock 


SSCROLL UP TOP LINE OF BLOCK 


SHE a> FREY TOUS LIME 


PA Ge ND, OF LINES TH SCROLL IN THIS BLOCK 
‘ 
SEN p= S24NO. OF LIMES 
sy ges FOOH 
PHL => TOR Me 
ie ae 
SHI. 
if SCROLLED 
rc a 
Ne THE ATTRIBUTES 
SDE r= PREVIOUS LIN IN ATTRIBUTES 


INSERTING BLANK LINE AT. 


“oh 
ae 


a 


: TELEVISION _ 10.1 |: 1172371982 TOG PAGE 14 
: OES rast " STMT SOURCE STATEMENT ; 2s - , ASM Fi. % 
» EDBO » ab ‘tye8 “LOIR : ie 
; p44 O601 °° 3 ites , LO Bot 
: *  AYF0) CLOSE: CLEAR KOTTOM EULINES ee SCRFEN USING FERMANFENT ATTRIBUTES 
iP. on BORDER EOL OUR (ACCORDING AS BIT LHS OF (TVFLAG) IS 
HE CLEAR Oh SET) 
123 2a | "2 
1154 VES: Cote Lot ; 
ae © Reis) V2). AND. (T are ah AND. (DF ILE s4oadtH) 
ENESl ANI, ( me 24) SANT. OFF TL E=4 00H) ) 
TON (LOLEN=32),A D. (TVLNS=24). AND. (D_FILE=4000H) 
26 : 
7 tas BEGINNING CF TOP SCAN OF 1ST LINE FO ELE 
ve - : We bieg* THe 4 dca . mn HE OR OELET TON 
vy  LCkwzs 
OO zB fH -> AST LINE TO BE Met. ETED : 
O) x 5A t= NOL OF LINES To FE TELE TEN 
a} [i 
po KOK. 
OL LoL CA " i 
7 Lo ALL 7A 3] NO. LINES LEFT FOR DCLETION IN THIS een 
a] th B60 SRCS=32eH LINES FOR DELETION J Nats BLOCK (0&8 LINES) 
avy DEC NE OTF & LINES IN THIS RLOCK THEN Fe as GEFH 
Q 0 0H 
4 ss on 
2 LE dba . . 
3 CBR SHL @-> 1ST CHAR FOR DELETION IN THIS BLOCK, TE %-> 2NpD 
Lb WE, 701 
een Hi Bie: wHL 2-2 AST LINE IN MEXT BLOCK 
ANG Oren 
I kA $e NO. LIMES LEFT tr BE DELETED FOR THIS SCAN 
Cee gee SUNLESS FINISHED THES SCAN 
Ba) oe ; . 
IM? H SHEL &-> TOP LIME OF NEXT ar “AM 
Pate Boe: sr ss ALLL NO. LINES To NELETE 
ore tf . shots SCAMS LEFT 
JK ONZ,LCES . 3 1F ANUTHER Su AN To cn 
TALL SCS - 
Lb {HD 
4 Lie bre 
; | INC De 
ei 1 LLU A, CATIR 
F 4 EIT LHS, (Ty. CY+TVELAG) 
z 1 a >LOE4 
2 1 $3 Lu A, CBORDICR) 
77 1 LCB4s Lo (Hd aA 
a) i DEG bc 
Eb 1 LOL Palaene 7 
Cc 1 ce BC 7B ot ORIGINAL VALLE 
OE \ : LO CoLOLeNedt 
Cy ; 23 RET 
240 
te7) SC Stes iON ENTRY USED fee Se iN No’ OF So T WERE HE NINTI 5 
242 30N Hl. -> THE INNING p AS. J ERE) NTH SCAN OF 
‘ 1243 ' ae LINE ON FE er REF o A v 
: hae 1 De BEGINNING OF THE CORRES SPONDING LINE GF ATTRIBUTES 
ee bi) 3 oi oH 
1244 3H. { OFF WITH 
1247 H IS-j)3 = OO 
1248 Hy t2-11 = ALOCK +1 (1 Ta 3) 
7 4 Seer Se ‘ SONS *e fe re CTT. hs T MCE, Csr Mee STL I CCT Se DCm) ot 


oe oe 


TO 2 eres oe) 


mo 


TELEVISION I 
Lot “OBJ CODE M STMT SOURCE & 


‘ 4 1249 ; BITS 10-3 = O00 FOR SCAN : epee. erates wa 
igs eam) Os a ' “BITS 7-5 = LINE ot ee 14 
; {251 ; ITS 4-0 + = 00000 FOR COLUMN Ly oe 
| ranged § & WE WANT A TH HAVE : 
Pease 5 RITE Wie 1O o= O1aLia 
4 3 BITS = POIK (Oo TO 2) 
12 3 BITS = IT alt : id : 
12 gre ' BITS O00 FOR COLUMN ‘ : nt 
494 70 he LO AGH fois . _ 
O47 OF z RECA. 
476 OF ‘ KOA ‘ : : 
v7 Or 2 RRA » $A b* OOOOIN \ BLOCK +4 
3k es de i A: A 
FESO 1. Oi Shy 4 
G7 12 LU RA 
CB iz CX DELL 3 ; . aa 
41 es DH . tH een oe : en ar 
3 12 tt Lo fe 
2? 12 ALD HL HL 
27 12 ADL HL tL 
2? 12d ALL ite 
297 12 ADD HL HL 
2h 1271 ADL Hi. HL 
44 1272 LO BOW 
4p 1z73 LO CL 
cy 1274 RET 
27% 
1274 LIN BW: LINE B UPPER HALE COOKE pie. 
1277 sHL pre AD ics Hn OF TOP SCAN OF LINE & (IN 8S. _POSN 
1273 5 COMNDIMATES ) 
1270 _ SPRESERVES Be 
W4AT = SELB a LO A, 24 ; 
O4Ay FO SUE Bb 
LIN JAA: sLINE A» AT COORDS, 
} sENTER HERE WITH A = LINE NO.TINM AT CoorRDs 
: SPRESERVES BCE ; - 
OWA 57 Lo nA m ' 
CAL OF RROA . : ; ee at 
odAG = OF RRA ss 
O4AD OF RRCA 
O4AE EGEO ANG 111000008 
OO OF LULA S 
O44 7A Lo Aso 
Oise Eb1a AND 1H 
OL F440 OR 401 
Gand 67 LUA 
O47 > RET i 
END . . : 
I 


PRINTER a oe V1/ 23/1982 Ter: FAGE 4 Re . 

LOC” GB CODE M STrT SOURCE STATEMENT ASM Sg tee: 1, ee FA 
‘ Mig “ot *HEADING PRINTER Bie Toe eer 
‘ &LIST cin 


Soa 
¢ 5 


GLOBAL UME, BUMP Rs TESA. La, CLPR 
GLOEAL DELSYM, FOIT OR, INGA HEL. KO ECHO, sities KE: 


RA TERMAL Paper sKSCAN 
EXTERNAL CLILHS, SENTV, SETTVC, ROATTS, SET LR S101 
Bear THe AOE T. AN) SEARCH, SELECT, SEL HLS INSERT sEDIT 
= HN ‘ 
: EXTERNAL [tL SHE: DEL REE: EINK. Ao LIST, CEH» FUT SR $LIST 
Eaten NEXT_ aht »PUT, PRCUR ' ny Ms 
‘ , EXTER BREAK? CHE 2 . SyNTAX i 
7 EXTERNAL Hipy SYNTWO 
EXTERNAL ALNUM?, ALFHA? § TENT 
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a Aha ¢ BIT 4 = FRINTER ABSENT — : 
4b4 — 4 BIT 7 = START OF. PAPER 
aoa 4&7 LD ALB 
i. OOo4? 44g CP 3 
ood fs 44 Ba Ei AA 
Cus 479 AND s ade _ re 
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. be & HELSYPMe ; $ SRITN TO DELETE SYMBOL POINTED TO EY HL. 
O14G gPoL1d9d b& LD at : oe 
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E_DONE: ~~ ;NEWL INE 
FOUR RETURN TO LEK S 
. Par ii GLEEF : 
LEU: For HL 
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OLA? 7h X DE, HL $HL &-> CURRENT CHAR, DE ¢-> NEXT ONE aS 
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: 7H OUP: CURES LIF 
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» G1b5 2 Chieudd X 719 C a 
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PMUST EE | a Ea, CARRY SET. 
3 t= ¢ RES 
lies ankys 
EDSRSOSC 44 LO DE, (EINE) 
Epcbs7ée eae BLT INFLA (1Y- 
- og: 
"ag LO DE, (WORKESE) 
4S RET € SFROM EBBEG . : 
Dae LD HL, (STEBUT) 
247 RET sFROM KBEMDS 
24% 
S49  DESLUGS SREMOVES SLUG: FROM LINE BUFFER STARTING AT (HL). 


Raeie  eeenee 


~ ACTIONS FOR CONTROL CHARS | §$4/72371982..7TOo PAGE 41 
‘LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9  . nar 
aoe St egg tk ’ IND ASSUMES THAT SLUG & NL CANNOT BE DATA BYTES OF COMPOSITE © 5 00 ut) ate 
3 gulag Ae RR” : 
Fa : “ c i) 4 {| re: : 
aS : Beta coe 
954 ASZERT ). * hee ML. 
: C SL 
ERROR” IN Thi 
ENDC 
OZFB 7E | $35 LDO2: LD As (HL) 
OZFC  FEOE Pe6 CP SLUG 
O2FE 010600 957 Lh fe, NOS IZE+1 
gaol CGoG00 xX 758 CALL ZaDELREC, ee 
Ooo Se 959 ED Ay (HLY ; 
0305 2 ve es 37°. ING HL ’ 5 ; : : 
0306  FEoD'  *. él CP NL : : ae eae, Fe = 
0308 2O0F1 9b2 JR NZ, LDG2 : : oe 
O30A CC? 963 RET . . 
#4 eo 
965 END 
( 
, { 
4 


ov TE SD S| 


Sr 


OOEG 
OOK 
QOS 


TIALISATION & 
C OB) CODE M ¢ 


10 
é 
a 
cr. 
m 
em 


SO 
PhD 


RE ed lan) 
WA ApPt bd 


pa 
LEN 


HAPINT THT Seet room m 


Srv w sep, 
P>dsbasornasas 


UAC 


PG BON SOON iN 


CON 


cae 


ory 
tet 


ed 
NEC SUNMOCONCUSUNED 


Ee Ba A ere 


NNN ERO RRO RRA 


i“ 


-iAaHBHHLSH 
QR ge 
SNR Soe 
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mT 11/23/1782_TCC PAGE 2 
STATEMENT ASM 8.9 
ENDC: 
Lo (FART), DE . 
LO CUS) HL ‘ ’ 
hn is -. 
JR Zs A15 HIE YAS NEW STATEMENT (Beauly: 
au CR CRAMT) > HL, $F. ART) #23. FYE TEAL RAM Toe 
LD DES CHLUSET+ (Al ~9  e TOKO-90H) Ha THE §-> END OF DEFAULT CHAR FOR ° 
Ep Bes (TORO-20H) 48 Hy LAST USER-DEFINED GRAPHIE * 
LDU a TCOPY UF DEFAULT CHARS FOR USER-DEFINED GRAPHICS: 
Y INC AL SHI, §-> BEGINNING OF USER-DEFINED GRAPHICS 
EB. iba re oe ue 
(AESERT FLE=FARTHI 
copy HAT (FIPEFART+HI) 
| ERROR ASSERTION PIP=FART + 
ENDIC 
Lo BC, 44 $H se O, C y= 44 


peas (FART). BC: s(FART) t= 64, (PIF) t= 0 


TD (RANTOR) >HI 
LO HL, CH SET-—Ge20H 
Co (CHARS) s HL 


(HL). SEH sEND OF GOSUE STACK 


fEC HE 
LB” (ERRLSP) HL ; 

“TH 1 ger Wntesrupt mode 4 

‘at Iv1Y pie mers 
Lit ties IT VES DRIVES = PRAM +2 1 DE 


te BR IVe HAP Me balpen INCREMENT HL TO MAKE ROOM FOR ANY DISC 
aa 5 HH 43, i ; 7 
ft ah Chavsae Deere ay DEST = V4RSA9 CCHANS > = DRIVES 


bs CHIAET /p ‘SNE t=> DATA FOR PERMANENT CHANNELS 


th ie - SPOR 4 CHANNELS es 
. in < i byte cont eas pE = pre to dest HL= ptr i eovrce 
i. - oY oa ? 3 2 ; ; : (PRAT +S Copiv7it) 
“D (be Crm nator er Jager ate tern 
ib levee “Basic peegram 
Hee (ARE arial, 
INC HL. ‘ : ‘ 
LD (CELINE) sHL >< being editred 
Lo Cha NL ie : : 
INC HL 
Lo DP of eka tact 
re P aS ; ha i s INITIALIZE ATTRIBUTES TG 1 BLACK CIN WHITE 
B, ? 
LO (ATTROTI,A ‘ 
LO (BORDER) A 
ASSERT REPPER=KEPDEL + 
COND .NOT. (REPPERSREPDEL +1) 


cH wit Oud at RP. Roe Rs = 


rea 


INITIALISATION & IMPUT ENIT LIV/23/ 1982 7Ce FAGE 1° 
Loc. OBJ COKE M sin SOURCE STATEMENT AEM S.¢9 
. : Pe, *HEAB INITIALIS SATION & NFUT 7 . - were alan 
Po Oe ne a 384 atier on tT : s ree RP, ste rs re 
a GATS Te oda oo veces ; i : ra a2 
HE MN EE ES. EER A ONAL INIT. § REND RENGE? aos Srey : 8 ei aaa Si Ve RAL aah 
GLOBAL eed EW. INGERTs iN : ; a 
GLCEAt, x... T.. il ET UN te eae | Th, S FARE “Hy GET. LN, X_CALC 
‘ GLOBAL SELEC To SE. Ht INCH, ROO fi, SEND Hy ERRG 
Be EXTERNAL ke pe THASTIC . 
39 EXTERNAL P 2 a HKSCAN 
S2 EXTERNAL LONE NO FUN ite ‘t EN: TEL. REC sLIST : 
B93 EXTERNAL. PUT... BC, DEL <5 ry im 
oP4 . EXTERNAL CH SAPO eee GE ¥ OTE , . ey thes : 
* ? Behar baat pry i ig ie * SPU MES Lorveu, STTvcy peer te ; 
fl EXTERNAL DUMBER. He eeT. -E INES INZA, DESLUG, CLPR 110.2 
S77 ELNEW? jNEW STATEMEN i 
4g IPRESERVE'S (P_RANT) » (UDG), (FART) & (PIP). 
Ooo F3 4at NI , 
Qo t SEFF AOR LO Aa~-1 
QOOOR EDSBR2SC 4a3 LO DE, (RANTOR) 
00007 tro 4a4 EXX me ie 
0003 ED4hB4S 4g LO BC) (PRAMT)- i be ois 
— 4G - ASSERT FIPS ae Le | Loaf 
‘ Cc U MOT. jes R | : 
ERROR TN ASS 
ENDC 
Ooo  ELSa32a5C 4Q7 : I DE, (FART) i 
on1a ZA7 BSC 4x -~— Uo HL, (um) | ; 
ools fry 40> / ree EXX Seis a0 
4ig° INIT: HENe FOR RAM TEST Me TH DE = et WEST HSA BS TO RE TESTED C RAN TOP or WE a er 
ati po fi _(FFFFH ON RES ART) & A O FOR RE: TART: “1 FOR NEW, wel, 
ate SS i Bee at =) SWITEH cin, ~t Fok EN : : Ae 
3 2D 
414 OUT CHORDPT),A FSET BORDER WHITE  sesper= @ Feb 
aii Lf A) SEH 
4l& Lo oT.A 930 REFRESH CYCLE Looks LIKE READING | FROM 
; te tee iON STAR Ip. WE MUST HAVE &°M CYCLES BE EFORE™ ANY RAM, { 
bay SAU ioe ? a bi 
41) NOE ; 
4ou Hor t 
aot Nop 7 =) 
422 NOF oe 
4s LD HoT ; SRAM TEST UF TO & ING. DE ; ; a : ped Pips 
4: LO LE ; ; - ‘ ie at 
4: Liz: a a | oe SET LOCs 4nod To TE Ta 2 ? 
4: BEC HL . 
4. CP oH 
4: JR NZIS SLOOP UNTIL HL=SFFF. . 
4. Lz ANT ¢ PSET ALL RAM LOS To ZERO . . : : 
4 het HHL DE : al 
4. Ab HL Di i 
a3 TNC SLT 4 IF HL > DE | 
; NC, SIF HL > DE 
4 bee Te} 
435 Ms ZsL14 
qe BEC (HL) - 
f 437. AR Zo LIS SLOOP LINTIL WRAP ROUND OR RUN OLIT ee ae 
; 7a Lae Ft. sHL > LAST EXISTING BYTE GF TESTED RAM : 
3 Y a : 
OOsA De a SH450 440 (F_RANT) » Bt: ' 
441 RT FIP ZR ART 4 f 
COND NOT, adbebet ART+1) 
ERROR” IN ASSERTION PIP=FART+1 


‘ Toe! abd cop & _INEUT CULT W1/2371982_ 700° ie aE 3 


OBJ CODE M STMT SOURCE STATEMENT es ; Asm 5.9 i 
ERROR IN ASSERTION REPPER=REPDEL+ ohh an) oink 
OORF = 21730 SOL ay Hi.» (SSH. 8) +35 
oon: 22098 502 LE CREP EL) sti § UREETIEL) tase (REFFER) bs 5 
OOLE | FUSt BO3 GEE CLY-YAE STATE FKEYSTORES @= -1) (EMPTY) 
OOLg  F 204 nit: CT INET Vike STATE ATK 3. 
hoes =f Rone EB tie MANET snes (P 2) Shes are ee) ' 
Ct: Pat RY 1 Pe, ee des . g 6 +: Srancrat yy 
ObEB oie Bay LB Be VAL HS byte count CL by. Hex Gon h Lelolen ) os bytes fer 4. ene 
sone eh 298 SET PR: ( VarLabsy AL tZe HIDDEN & STANDARD STREAMS cer bo. . es 
Onna CHanOo x S10 = ’ C1Y~ Clea ila Busser & reser (ae 7 eter of (Ft9652) pRre rT zee : ’ | 7 . 
ouba Peseane. x Sts ba nace Tee Ses 8 festueth! ets! oe : . os fi 
nn C Se * Ye CLS = ar A& reset chonne tg? ‘ : mS eae a 
tina fr Bia th : ERT os C ies ys ~s ESSAG ace : | i. ; 
pone = =11e1O3 KR § Tz CF I COPYRIGH SEAG eae : 
Boke = @hoood — X Sts CALL PUTHES Nee Cee Om | Ime a5 
OOES = FICKOZEE BG BET CLUS, C1Y-Y+TVFLAG) 
OOK? 1LeO7 Biz AR LETS 
webct | . ~~ E 
EA? AUTLSTA FAUTOMAT IC LISTING & INFUT NEW LINE 
OVER = FISE3102 5: LD (LY-YtOF_SZ) 
; LIs reset Calculator stack 


QokrF CHoIoaa x 
OOF 2 CHF PO4 kK 
OOF Ss SLOG : 


- Clear car * Line ; make new empty one ; ut ai 
select COmM- ST (mel Stren)? sets T/O chaynel vse by WRCH LITch. also dees Some device depenclent initials zatioy 


QUE 7 Ch4AG4 i} d 
Ca) EA Choeodg 4 i 2 4 
rath) bs CLVGO0 xX ‘ALL ESYNTA 
ooo FLCBOOTE 1 T ice ys +ERR. Sehr . 
O104 2012 2 JRE NZ-LED syns SYNTAX ERROR 
OL FECEHB066 IT RETEGS, (1Y- EL YS 
OLGA ZHAO Maz, nA TFER ERROR MESSAGE 
PAPC: nie ee 
| CALL DESIG es ; 
| LO (ry: VIER. NK) -1 SCANCEL FRROR 
4 IR LED2 mn 
| sHERE Te his WITH COMMANT OR PROGRAM LINE AT (E.1LINE) WHEN 11s i 
| ; “SYNTAX HAS BEEN CHECKER. 
| . a -INED 
HALE) oH 
} 2 ig it a 
| le Tint 3 1F LINE # NON-ZERO, INSERT IN PROGRAM’ 
} * ’ 
are | 
PAR Z AWTLST + DON’T EXECUTE LINE TF NULL : ' 
BIT AL OS, CLY-V+FLAGS2) > as 


oe a - - t= of + NO. OF LINES WERE FREPARED TO SCROLL 
Yim 218) 

F pone e 
EUS0A01 


£ TO EXECUTE COMMAND, ; : . a 
PROGRAM HAS STOPPED = 

OWT EXACTLY WHAT NEEDS RESETTING Cer 

Nf INTERRUPT TO READ KEYBOARE ~ 

HIN CASE FEY PRESSED DURING PROGRAM (EG BREAK) 


/ 
Pm LA 
Stitt 


\/ 
LED4: 


ae cae sigteete shi 8 ATTRA SB STIL SIDNEN ER OPT TC WRITER OM reggae pe 


sane seen acne 


LL/e3/19527O0 Pace 4 


SOOSDS 


INITIAL ISATION & INPUT EDIT 
Low WEI CODE M STMT SOURCE STATEMENT ; ASEM SL 
c4000G0 X 562 CALL NZ, LUMPP R t1F nine Rar ee LEFT - ge fae “ 
E apne ey aoa Pe Ay teret ta) s#ue MIGH WANT TO CLOSE FLOPPY FILES ##% ate gro ene ME Nae aby he Bis i 
phe SG! " : ‘ i vad i an 
FS 545 LEDS: PLUS 
ASO 210000 S42, Loo 
Db aQ FO7 437 S67 to YIPLAGX)H ; 
Ud é. FL 4 SiG Li IX PUTRAE HE & INEUTRALTZE (X PTR) 
O1E6 © 220K! 6 RA Lo rey) sbi 
Oiee | Biase at ch eg iiostRecoM. ST) # PES. TREAM 0 t= CHANNEL 
ro Wi pore Fe i) .- A ea VSTRACL ~-) HS), STREAM G t= HANNEL. K , 
172 Epenagac © 853 Bee, i CLY=¥ FLAGX) NTN CAs 
Zz = CL PAG G73 XE 4 UK} CAE PL 4 1 
176 Codd xX S74 CALL. TNs it race! AbonTeb FRM Tupi ee ISPUT STATEMENT 
17? FOCHOZEE 7S SET 2H Gy OLY V4 er LAG) 
17D Fil 374 FOP ; i 
: 577 SRERY WITH ERROR CONE IN A m PRINT MESSAGE. IT HAS THE FORM : eos ty 
$73 CONE, SPATE, MESSAGE, %.°, SPACE, LINE nol ot a mt CP OS SS ba 
a7? H SURLINE Na | : a ee 
Sed SIF WE ALLOW & ene FOR ae canes. 2 SPACES, conn & COLC ' 
Seat ‘ 4,FOR THE LINE NO.) & 3 FOR THE SUGLINE NO... THEN GUT OF 
i 3 3° FOR THE WHOLE LINE ANY MORE MEANS THAT THE ERKO 
3 ' MESSAGE SCROLLS UP! & MIGHT sOVERRITE PRINTOUT) WE ARE { 
- 4 $ ALLOWED 20° FOR THE | MESSAGE 
O1L7E ba) Lo B.A 7 : 
QL7F i ee A) os 
OGL JRC LEDS2 _ VIF ERROR Cope 1s A BWGIT 
Olas Alitr Ay “Ae 10-"0" . , Bah, 
BP Ere R LEpSs2: CALL a te : f ‘ oe 
, Lt fy“ * Hoe 
WRICH , 
7 tT WRC 
Tix” . ALB 5A a= ERROR. NUMBER 
1ifAGL K Di ERRMES ‘ 
CHG X LF PUTMES Sed : 
AF ; A | { : : ; j ay Ae ; 
LL7FOS iN th a Aft CINE : ‘ : : me ; : ge ode \ 
OL o/ LOOGOg x eae ae yeaa arc : , : : a eR ene ae. 
Oley ays SC ‘ Lo FAS) ptt es . 
re ao x FALL cai be: : . ce 
OLAO SESAS : tO A, ° ; ; 
KET rh 
O1Ag D7 RE] i 7 
o1as FR4EOD (AI Lo tay. YSUEPPC) : 
OLAG (AY arere) as LO BO | : ; i 
O1AG CHoaog X of) CALL PUT EW: a ; . ns ORES 4 
OLAB: Chooaom — xX Le CALL MEL.K ly é : a9 ee oy 
sé PWE NOW AM IUST COL IPRC ay &  COSPRm) : ; eh “he ee aca: q 
97 sFOR R RT Oo CEND OF Sear THEY ARE LEFT ALG INE, ee ae 
{ 603 ; ‘ TS S TOF QTENENT) & L CHREAF KEY PRESSED AT END ; 
LANG ; c= : SUBPEC) (US INCREMENTED 30° THAT CONT DOES 
440 i NOT REPEAT THE STATEMENT JUST DONE f 
441 3 THEN, FOR ALL. REFORTS OTHER THAN ©, (GLDPPC) & (OSFPC) ARE SET 
cs 3 TO (NEWPFOC) & (NSERC) TF THERE WAS A JUMP PENDING (THIS 
an : WELL BMY HAPPEN FOR REPORT L) OR OTHERWISE TO (PPC) : 
OLAE ote LD A> ERR. NR) 
OLE 616 I os Be eerie Bo och tte i i 
Ole 617 aK Z PLEDGE SREPORT OF, DON’T CHANGE COLDPFC) : : : 
O1b4 418 CP : a ‘ j fo Gh i 
Ode 61y AR i Hees s1F STOP STATEMENT si ; ee i 
O1LS i 620 EP i 
OLGA 621 IK Ry End SUNLESS BREAK AT END OF STATEMENT 
OLB Ep340p 652 LEG42: INC (iY -YASUEPPC) 
4629 LED4A2: ASSERT COSPRC=OLDPRC+2). AND. ONSFPCENEWPPC4+ 2). AND. (CSUBPPC=FPC+2 ) 


| ne eae 4 : ; toe ert We Fete ~ “ a SOMME MACGU CREATAS Ce LE Lika he he eb Tod Cr | 


INITIALISATION & INFUT ERIT OAN/ES71982.TCR | FADE 
LOC OBS CODE M STMT SOURCE STATEMENT 88H 5.9 


COND .NOT. ((OSPPC=OLDPPC+2) . AND. (NSPPC=NEVIPPC +2 


UBEECHPPC+2 “4 
ERROR IN ASSERTION (OSPPC=OLDPRE+Z) , AND. (NSPPC 


». AND, (5 es 
ENDC NEWPP: 042). AND. (SUBPPC=PFC+2) | a 
SSERT eet crane F ? 
COMB NOT. (SUBPPC=NSPRIC +3) . . a’ 
ERROR IN ASSERTION SUBPRC= =NSPPC+S . > 


aoe] 


i 
hl 
p~) 


x 


EMG 
G1IEF o1goue 425. Lh BCLS ° 
O1Ge ~~ 11705¢ 626 LD hE, OSPR 
Sie 21445C 627 LO HL» NSPPC 
O1ce CB7E é23- BIT 7,(H : 
OICA F801 639 UR Zs LEDS HIF JLIME fe . 
* gtce Oo? He 630) ADD HL, BO 0 PHL be Sune 
OCD Fone ie 654 LEDedgs LooR SUPDATE (G1 EPC) PPC) ad 
QICF “DGLOAF F 452 LEDGE! LM (TY: SYANGEPC) st a, FIN CAGE WIN JAS SET REFORE ERROR FOUND 
O13 FRCBOLVE 63% RES LODE CTY YtFLAGS) 71M CASE ABORTED FROM INPUT 
O1b7 CSPS00 ee : JF LENS 
. ERRMES: 4 FERFOR meey AGESS AT NMGST 20 CHARACTERS EACH. 
BO DEFB SOH TH MESSAGE - % ie 
AF EFM 70 Pas <a 
Ch HERE “Ke. OR. GOH $0 - DOESN’ T AFFECT CONTINUE 
4E435354 640 CEFM - “NEXT witout FQ’ : : done 
2 441 PEEL “Re “hk GO He VARIABLE AFTER NEXT FOUND, BUT NOT A Mee oe “ 
44617269 642 : RIABLE MOT FOUNS Se VAR TABLE : ie 
= é43 a 2 
§3756273 244 , 
E7  : 645 $3 - QUT OF ROLINIS, OR WRONG NO. OF THEM . 
4F 757420 &44 6 4 8 ; mee 
FD ; 647 34 
4F 757420 bis =FM 
FE £47 EB ONY 1 $5 - LOWER HALF GF SCREEN CNLY 
qE 734062 £50 DEFM “NUE Ton B17 nage ; - 
E7 éol NORE 9G" OR. OH #4 : ; ee” ou an 
SZ45S4sis 452 PEM “RETURN WITHOUT GOES | om me Gk ah ee is 
C2 453 LEFE “BOR. GON #7 — GOSLIE stack LINDERFLOW ie Voges Be ae 
packets? be by 1. f a a ; php diss 2 C8 v . Via ty 
aoe Reno # - CONTINUE CARRIES GN WITH NEXT ST io ; 
10) Fo 0 WE CARRIES © HONE STATEMENT : ; : ad 
4PCE7TOO1 és INVALID ARGLUMEN” . : ‘ : ie othe ie 
F4 és :OH 7A. ie ‘ ‘ tee, 
HIEET HOS LO QUT OF RANG? 
ES ay | I Ft et ot 
aa tha IN BAST? i te i 
C3 bias ut 50 - GR NO ACTUAL PARAMETERS WHEN GONE IS WANTED Bp data? ete 
ego" ges i con Bee EAT — DURING PERTFHERAL OPERATIC , | : eee 
3 wis CR. EC t- Tf WG FERIFHERAL OFER IN, COR ‘EFEATS = - 1 
4F 757420 bbk, Out nF DAT? $ STATEM chr Es id } 
| £47 OR. BOb 5E : 
APGET ELA 449 Taki = TLE . 
ES 4L9 + “ES OR. SOM > iF 
AEGF L072 raat “or ROOM a LIN” _ 
ata h : 1G 
ES saarso e54 Brot “iit Jheur oe ; 
04 &73 sal Tae SH - CONTINUE REFEATS STATEMENT ; t ee een 
44FS220 £74 “Fee Wirigur NEX* eae te ae ; ; . BS 
04 4735 - “TUR. a0 $7 - ONLY TF Loor NEVER EXECUTED ; ; 
QPLETEGL &74 cInvaL Th 1/0 NEVI? ; ; _ ’ 
ES 477 “E" OR, 80H a) 
QPLETOG 678 “TNVAL TD atk) AR 
F2 479 PRR OR. GOH 
42524541 6a M “BREAK INTO PROGRA- 
ED Ge1 BEFE “MOR. GOH $L - CONTINUE CARIES CN WITH NEXT STATEMENT 


IALISATION & INPUT 11/23571982_ TOR PAGE 


NIT 6 
Met? OBJ CODE M, STMT SOURCE STATEMENT ASN 5.9 . Se ei 
327 eg th Apse $2 “parton Np Goo- “dH OR TOO BIO) IN CLEAR Ue ee ees AD 
is & ‘ ~ i a , ay 
yas 83746174 é34 {STATEMENT Las 
2 FA ees i. BO AN ~ IN RETURN GR NEXT 
3 4OLE7661 6G4 SAN AL Th ETREA’ 
i) Eb rae OR. SOW ran) 
464E2077 “28 EN WITHOUT DE? 7 
£6 9 “F* OR, GOH iP ; | 
BO617261 £30 | banal ERRO-’ Pia eo mn ene : sian Laets ee 
re 9 “Ke iQ + WRONG TYPE OR WRC INBE: % sa ane Std 
54617065 692 Tape LOADING ERRGY ae ic i a ote bas i ee 
F2 693 INLINES 2h" OR. 80H ; sR ; ae 
AG oe CPRT FB 7"? .OR. BON | ; = 
7F &94 - y BEER 7FH" COPYRIGHT SYMBOL : ; nei e ; 
ZOB13936 607 | TERM “ 1962 SINCLAIR RESEARCH LT? 
E4 4 HEEB’ DOR. SON 


$70 OUTPUT ERROR MESSAGE G/O, NO ROOM TO ENTER 1.INE 


, BE1O (DO A164 
O10000 LO FC. 
C3SC01 R 7 IP LEDS é , 
70S LEDS: ' HERE WITH BC = LINE #) (CHUADI) —> CHAR AFTER LINE #, 
. 706 CARRY CLEAR, TO INSERT LINE IN PROGRAM 
ED43495C 207 LO (EL FRED 
2AS0SC 703 LB Hi. (CHL ing 
EB 703 EX DE, HL \ 
Z1I9EO2  R 7 LO HLA ERRG ; —_ 
ES 7 FUSH HL SIN CASE ABORTS ‘ 7 
ZAGLSC 7 LG HL, (WORKSP ) 
37 7 SCF 2 _ 
EDS2 7 SBC: Hl DE HL f= LENGTH GF LINE INCL. NL 
ES 7 PUSH Hi : 
eng 7 LIv HE ' 
6? 7 LD Lt SHL 3= LIME 2 - ‘ 
CLOG 7 CALL FIND fH 2-2 FLACK gad WHICH TO INSERT - ree Be Oi ees, 
S004 7 JR NZ AEDS SIF baal PERERey LINE H ey mont 3 
eBaaes 72 CALL KECLEN + DELETE EXT: SNe LINE ; : 7 ; Shee gS i 
72 7) ALL HELSET. ae BPS et at 
j 7 LEDS2: phy HERE WITH CARRY CL EAR & ANY XTG LINE DELETED ; 
‘6 7 POF Ez $ BC t= LINE LENGTH INCL. te 
7 7 LU ALE : 
3 7 REC A 
? 7 oR 
A 7 JR Z,LEDaS SIF NULL 
-: 725 PUSH Eat 
“O 723 ING Be 
cE 7 THe bi 
O3CF 7 ING Et 
Ost Of 7 ING Ee 7BC ts LINE LENGTH INCL. LINE #. LENGTH, & NL °: 
; 7 sHIL. -> PLACE BEEORE WHICH To INSERT 
“OSD 7: DEC $$ ENSURE (VARS) GETS NOVED 
3 Ets SBS3S0 J Lp. BE (PROG) sBUT THAT (PROG) DOESN’T 
cbvE04 RK Es pret ine SERT 4IF LINE NON-EMPTY TRY TO MAKE ROOM FOR IT 
229350 737 an ye 1G). HL SRESTORE OLD YALUE OF (PROG) { 
1 740 POF _  $BO t= LINE LENGTH INCL. ML , : Ro SEE 
cs 741 PucH BC : '. 
13 742 INC DE 370 MAKE UP FOR DEC HI A FEW LINES BACK 
ZAGISC 743 0 HL. (WORKSP) tL 
2H 744 DEC HL 
Zh 745, BEE IL 


. ’ ’ 1 Rene sem rite: rt epee 


pan ese 


ISATICN & INFU 
OBJ CODE MH STMT 
DEG ‘24 
AAMSC: 3» 74 
EB 74 
i 74 
al 7 beg 
B 7s 
1 Th 
B | 783 
3 75a 
8 755 
2 756 
“AcBoo K 53h, 


11/23/1982 700 


. gCOPyY CINE TEXT & NL 
SLINE LENGTH STORED 


{LINE # STORED BACK * 


SEGRESEsENes = 


TWASTE ERRG 


é 


i haha 1/0 ROUTINES 
oC OBJ CODE M SINT SGURCE: 


o40c 


o4oon 


O40E 


o4ig 
re | 
0423 
O4Z7 
O42A 
O428 


o42n 
O4ZE 


vy 
a 


* O000. 


hepa. 
soba hes, 
es 


0000 


OOO0.. 
45 


zx 


000 
OL 
3 


ax 


OD04 . 
52 


0000 
ODG4 


Dx 


old 
- O4600) 


OBGQ 
O10 
OLO0O 
600 
1000 


FIMBO26E 
2004 
FOCKOZDE 
be Li2Fo4 R 


ed 
2SFA 


CF 
7 


ea mM 


ved 


nw 
NRO 
Se 


Poe 


SOGIN Oh 


SNINAINISST 
LANA 


cc 


NNN 
NONE LD Late 


DoLabea nt 


. 


SNININENINSINESS 


eG ah anys 


1 Boa tees 


Wee SN 


ox 


bree De as 


Se! 


ENTITY M1/23/1932_ ToC FAGE 3 
STATEMENT ; Kt ASM 5.9 
*HEADING GENERAL v0 ROUTINES io; Sy ae 
CHINITs 3 CHANNEL - INIT LAL TZAT FON ~ DATA FOR FERMANENT CHANNELS 
ASSER CHAN e=$<CHTN 4 
COND SNOT, (CHAN hie ta fhinat t 
one IN AS SERT ICN CHAN. AAs a. ~CHINIT ‘ 
Be sal I CHANNEL kK: LOWER, HALF OF SCREEN / KEYRQARD 
ER ‘CHAN..9=%-CHI INIT a Pa ;  - a ae Nags iit 
Not (CHAN. S=4--CHIN awe soy ; 
OR” ASSERTION CHAN S=$-CHINIT w “i 
13 | eae ; (CHANNEL St UPFER HALE’ OF SCREEN 
NIT) 
R=$~- CHINIT 
ENDG INSA sCHANNEL. Res INSERT IGN IN RAM AT (Ko CUR) » 
DEFW ERRJ 
DEFE “RK? 
SSERT CHAN P=8-CHINIT 
COND .NOT. (CHAN _F=$—CHINIT) 
ERROR IN ASSERTION CHAN _F=$—-CHINIT 
DEFU SENDTV HCHANNEL Ps ZX PEE 
DEER ope" , 
, DEFB GOH ‘ 750 BYTE BEFORE BASIC FROGRAM NOT A con 
ERR.I: RET ERROR SERROR J. INVALID el DEVICE 
RET ERROR 
LEFE “I~ -Aray 
SMINITs $STREAM INITIALIZATION — FoR HIDDEN ‘STREAMS e a nenns a- 3 
o———~ BEEW CHAN E+E SSTREAM -3 = CHANNEL é Li cna ty 
DEFW CHAN S+ § SETREAM -2 = (CHANNEL i z f Si ae cis 
CEFU CHAN R+1 S STREAM ~-1 = CHANNEL = 
DEFW CHAN AL SSTREAM O CCOMMANDE) IMITTALIZED ra CHANN K 2 
DEF CHAN +E sSTREAM £ CINPUT DATA) INITIALIZED Th CANNEL: K 
BDEFW CHAN. S+ SETREAM 2 CPRINT) THITIALTZET TO BRARE ae 
DEFW CHAN P+ JSTREAM 3 CLPRINT) INITIALIZED To avai El F 
ROTH: sWAIT FOR CHAR FROM CURRENT INFLUT CHANNEL &/FUT IT IN A. 
31F BIT ¢ OF (TVELAG) 1S CLEAR THEN SETS BT T_ECHREG ONCE. 
SARORTS , & TF END GF FILE CFINITE DEVICE). 
tFRESERVES BCTIEHIL, WES B°C“D’E-, 
GIT CLHE. (TY ~YtTVFLAG) 
JK NZ, LRC 
EET ECHREG, (1Y- Y+TVFLAG) 
LACS: CALL INCH 
RET ¢ SIF CHAR FOUND 
JR ZEROS WATT Fur CHAR : 
RET ERROR SPLSE ERROR &, END OF FILE : 
RST ERROR 
HEFE 7 
INCH: | PGET CHAR FROM. EURRENT CHANNEL WITHOUT WAITING, & FUT IT IN A. 
IRETURNS CoIF CHAR 6 
sRETURNG NC NZ. “lF EN OF FILE CFOR A FINITE DEVICE, I.€. ONE 
3 LIKE A DISC FILE FOR WHICH WE CAN ALWAYS TELL IF THERE ABE 


awd, 


O4sa ‘ 

Odes o 

OSE  22515C 
O46) FOCESOAS 
O465 23 

46S 23 | 
O467 23 

OAGE 23 


ERROs: 


x ERTION CY. AND, OF FOOH) = (STRMS. ANT. OF FOOH) 
Abt A A. 


HL points to stream data Sor regu esteck Stree, 


STREAM 1S OFEN 
‘ i F eRRane Oy INVALI b STREAM i 
RET CRROR | és ; 
DERE ne -"Ar +o : 


DEC DE 
LU HL, (CHANS_ > 
4D0 We a 


LO (CURCHE cv HL. 

RES RETFOS 3 C1Y— ~YtFLAGIZ) 
ING HL 

ING HL 

ING HL 

ING HL 


(RRENT 1/70 CHANNEL &¢= THAT WHOSE DATA 1S POINTER AT EY HL: 


CINE 


GENERAL 1/0 ROUTINES M1/S3/1982_ 700 FAGE 
LOC , OBJ CODE M STNT yoni STATEMENT ASM Si. 9 
oy, Vee cet " ~ : 
eee en ae ‘B07: an ANY “MORE - CHARACTERS TO COME), 
* t ree B10 tRETURNS ;NG&>Z TF NG CHAR. yer LEOR AN INFINITE DEVICE, 1.E. 
ett $ OTHE _BEYIOARD OR THE NET. Fr WHICH WE JUST HAVE TG 
Ets He *. a (eRe Oe ORY MORE CHARS). 
oka x Eb 
S14 i SHUINE THAT THE INPUT DEVICE DRIVING ROUTINE PRESERVES 
os 7 as F B°COIMESH"L’ & SETS. AF RIGHT. 
42 bn a4 ~ EXX 
ods ES G17 ihe! HL os 
0431 2AS15C Sls Ci HL» (CURGHL ) 
0434 23 G17 INC th. 
0435 23 820 INC HL 
0436 1308 EL JR LSC? 
. w2Z : 
B23 PUTING: ' Ae SE BDEH BUT @. A HOLDS VALUE OF TIGIT 
gees 1E20 LU E,WIGIy+0 
O43A So ; AUL ALE 
SENDICHs ; SWRITES CHARACTER A Ta c RRE Nr cl leds c HANNEL.. 
eee armel PUSES B°C cn “ES» PRESERVES 'B BEHL 
base OES EUSH HL eee. ST 
043r 5 I, 2 
0420 ZAS15C Z Lo HL {CURCHL ) “EM exchanges) & 
9440 SE LScz: LD E.(H 
0441 23 INC Hi 
O44e 5G LOD, CHL) 
04943 Et EX Di. HbL . 
444 Cb7504 kK TALL JPL CALL CHL.) 
0447 1 POP HL 
0449 oD EXX 
0449 CP? RET 
SELECTs FCURRENT 170 CHAMMIEL, fe THAT oo STREAM A. 
. THE CURRENT T/0 cHlECT tae ue 7 SUE ONE ore SEQ BY WRCH & INCH. & IS 
3 MABE SO BY SEL ALSO PERFORMS ANY SMALL 
3 AINTTIAL IZATION Tas Sy! NEEDED BY, ‘THE BEVICE tie EDS 
Y¥ YL ANE OF COOH Tee AND, OF FOOH) i 
aT | «ANT, OFROOH) = STRMS, AND. OFFOOH) ) : 


“> 


ar oe a ; 4 ehh Mes es 
ry. ‘ : 
f 
an : 
GENERAL | 1/0 ROUTINES eco ee BRET os oc 11/23/1982 TOC PAGE 10 
Luc OB CODE M STMT SQURCE STATEMENT ASH 5.9 
fe a "949 LD Cy (HL) 10 t= DEVICE CODE 
217604 RK 870 LD HL, SELTAB + i 
ho2805 R wt ae CARI 
DO 872 RET NG VIF NG SPECTAL INITIALIZATION ACTIONS 
‘SE 874 By 
1? 875 “A 
: EY B76 JPL - FCALL JWPOHL MEANS CALL CHL) 
a g7% SELTAE  PSELECT TABLE ~ SPECIAL JNITIALIZATICN ACTIONS FOR VARICUS 
“G476 0 4B ‘ gue ee | : ; 
6477 04 i 
047% = 8S 
O479 = 12 os 
7 ee) : 
a: O47 1B 
o47c 00 
TONS FOR THE Ko & § CHANNELS MAKE TEMPORARY 
“RMANENT COLOLIRE, SC A # ITEM IN A FRINT 
HAT USES ONE GF THESE TWO CHANNELS OVERRIDES 
O47 Fu DCO ly = 
O48) FLELOTAE ie ~ sy EG DS 
O43 F SOS faa } aye 
O49 1 : [ \w cy VAL j . 
o4sp : iy (IY-Y4TVELAG) KS 
O¢ee FE t PR: CLY-VHFLAGS) = Ree ? 
0493 3 X Be ah TE (An Toa) pill / 
"sy ul mas / . 
0496 FOCHOICE © 901 SEL_Ps SET PR» CIY-Y+FLAGS) paint \ 
Oq9A CF 502 RET \ 
‘ fot 
y 


Fa Cee ares tard eR pens eT ne eer eee vs 


MISCELLANEOUS SUBROUTINES ELIT 
SOURCE STATEMENT 


“HEADING MISCELLANEOUS 


Lor 


0476 


O4vE 


i 
O4AS 
O4A3 
W4Ad 
O1AP 
O4AA 
O4AC 


O4AL 
HAE 
O4AF 
4B 
abd 
Obie 
OA EA 
(47 


KE 
( ay ku 
tod eet 


aE 5 


Ok CODE M STMT 


010100 


Lay 


Ex 
c LoOoag 


id 
11 
12 
13 
14 
j toe 
14 
17 
18 


Lee 


‘aw 


Cath ee 


fat 


? 


CONES 


INS1: 
INSERTé 


LASS: 


RENGSZ3 
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SUBROUTINES 


FAGE 11 
AEM 5.9 


sINSERT 1 BYTE ¢ 
LO BC,1 Cece : 
$ INSERT i EYTES BEFORE GYTE. PTD TO BY Hb 
3 00 UF ALL FROM HL TG (STEEN), UPDATES POINTERS 
3 CAL RROR 4 IF bey eyes 
i SETS ACO, DE-> LAST BYTE OF SPACE INSERTED, 
$ Hom BYTE RERAIRE 1ST, PRESERVES a 
3MB POINTERS ARE MOVED UP ONLY IF THEY ead NT_STRIC wt Y AFTER 
3 HL. IF IT 13 REQUIRED TO MOVE THOSE THAT =A SE EQUAL TG HL, 
i THEN, Dui 
H DEC HL 
3 CALL INSERT 
3 INC HL 
: i IN® DE 
PUSH i ; 
; ae Ld 7 
5 co YEN RY 13 AMY OF VARS) Ta 
H STEENM STRICTLY AFTER 
3 SETS DE = CLD VALUE “OF (STKEND) » PRESERVES AHL 
ING OH es 
LD Oy Cb 
EX CSP), HL 
AND A 
SE pL, DE 
/AGD JIL, DE 
EX (CSP), HH : 
ANDY LRG 4 IF POINTER <= HL 
PUSH DE 
EX DE, HL. 
AGL LL» Eu 
EX DE, HE 
Lo (HLL 
DEC HL 
LO (HL)LE 
THO HL 
F De 
: HL 7 
i} 
dk no, LARS : 
EX DEL AL 3 EXIT LOOP WITH Fit = AMOUNT BY WHICH TO MOVE, 
ror Ye: ; (SP) = PLACE To INSERT/DELETE 
era 3 DE = OLD VALUE OF CBF_LENE) 
fn 
Lo 
L. “2 
INC Bo 
ALD HL, DE 


MNIS¢ BLL ARE OU MS SUBRE HiT INES EDIT 11/23/1732_TCO PAG aE «i 
Loc Ob CODE M STMT SOURCE STATEMENT ASM S. 9 
O40d ER vE7 2 ee ae 
OAD? Cy . PhS RET 
a ’ 
O4bis ODO : ZERCE QEFW © s#e8 COULD SAVE 2 BYTES BY FINDING A NATURAL © WORD 
O4tea 2 LGL&: EX DE. HL 5 ne TF E.G, Hl, = (VARS) 
O40 Tine 04 - R 2 LO DE, ZERO 3 IN CASE COME He RE AGAIN . 
4 GET LN: 3 PIC NE? FROM LINE FTO TG BY HL, OR BY DE IF HL 
soe $ POINT TO A LINE 
4 Hy wM?T EITHER, YIELDS ZERG _ 
7 3 Rt, gee LINE # IN DE, SETS HL -> 2NG BYTE OF 
aeheees ca i UNLESS DE = 0 : 
O4DE 7? LD A, CHIL) 
Oger AND! 110000008 
O4FE 1 JR NZ. LGL2 
O43 LOD (HL) 
O4E4 23 INC HL 
OARS mE Lo E. CHL) 
O4FES cy RET 
LCUZs 4 COPYUF IN MODULE BASIC CONTINUES HERE ; 
Oak 7 LQ HL, (STKBOT) 
O4FEA 7 DEC t 
O4EB R vn) 
O4E6 5 i 
O4EF 3 z, ‘ 
O4FO 74 Qo: 
OaE A A ace y Pl s RESTORE (WORKSP) IN CASE WAS EQUAL TO (STKBOT) 
4k Ss wat 
O4Fé i] & 
O4F7 3 7 
OAF yp : 
ood CLELs 3 . NE 
iat . i MAE ) E LINE AREA, EMPTY EXCEPT FOR Peer & STOF. 
z a EARS CALCULATOR STACK (BUT NOT ITS MEMOR 
“PHL a-> BYTE AFTER | STOP, EVERYTHING El GE PRES LeRY VED. : ¢? 
: ; 44 MAYBE THIS IS REDUNDANT NOW WE HAVE DEL_EK ies 
OFF? LI th CELLINE) : 
O4FC LO (HL). NL sEQL. TO TERMINATE 
ae E ote J sieeia a HL 
at a 2 OH SEND OF PROGRAMS FOR COMMAND LINE 
in 
. . Lo (WORKS ) HL 
X CALC. SRESET CALCULATOR STACK & CLEAR GUT WORK SPACE AREA 
iF RE -RVES AF BICKE 
LO Hl» (Wir 4 
wats Li CSTE 
RESETS LCULATOR 
3 ES AF EVIOE 
Lo HL.» ¢ STEEOT 
Lf oe EHD) HL 
PUSH HL : 
LO HL. NENBOT 
LO (MEM), HL . 
FOr HL 
RET 
X_T HL 3 ENTER HERE TO DELETE FROM (E_LINE) TO BYTE BEFORE: (HL) 
O DE, (EAL INE) ‘ : : 


Oo Bus SS? Sl 


L 
CHOCO x JF DEL _DE 


LSH28 INC HL 


O82 


ay 


gia auhe 
O24 Fat) 


MISCELLANEOUS 


SUBROUTINES © 


L1/23/19282 TOC PAGE 15 


ED 
Loc OBJ CODE. M STMT SOURCE ETATEMENT ASM S.9 


FOR ENTRY _C¢ 


SSEARCHES THROUGH TABLE (HI) - 
FEACH ENTRY JN THE TABLE HAS 2 BYTES, THE FIRST BEING THE ONE 
3 Ta BE MATCHED AGAINST C. «: 
3 BLE [5 TERMINATEN BY A ZERG PYTE., 
sIF ENTRY FOUND, RETURNS C WITH HL - BYTE OF _ENTRY. 
i NOT Soe Bd Vedra NC WITH HL “5 ZERO TERMINATOR. 
SPRESERVES BCD 
) 2 
A Ry ~ oy 
a + TERMINATOR la | a / 
i i ‘ . | I / 
INC Ht ae Sonn 72 sbAREe GEO NEVICE TABLE 
WR NZ LSHZ sFOR NEXT ENTRY 
af : : | poad ag wo REU.DEV-TAS 
END JS U® LooP SWmuLARLY 
Y 
.Qr? 
< s 
v se a ‘ ° 
ee: : ‘ ) a 
© a 
a Pu > 5* Rs 
So ee s) 
n a“ 2 
ee cd rt 
wee 


FEN ? 
Loc 


C ae) oO i) 


{i 
OOQOE 
OOLO 


CHOEG 


O17 
Oo1s 
Cd 
QO1A 
OOLE 


Ou 1 t 


C 


Lose ETC 
OBJ CODE 


} 


es 


Cee Tee See 
Somesos 


Goet 


Dat 


CGT 


al 


> 
il 
th 
mo 


? 

3 

3 
E 

& 
J1s100 
EHAGHG 
E 
g 
y 
y) 
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: CHANS : 
MN STMT SOURCE STATEMENT ‘ ALM f.7 


1 


rt c 


CLAOTAB: 


an HL (CHAR: 


*HEADING OPEN, CLOSE ETC 
#LIST ON 


SLOBAL OPEN, CLOSE, FORMAT, MOVE, DELETE, CAT 
TERNAL aU AN A adds tH sEQIT 


=X 
XTERMAL FIX.uUt sSYMTAX 
XTERNAL POPSTR sIGENT 


Om +e 
at bd 
Bm 


gl oe CLOSE tN 

CHANNEL NUMBER ON GFF TH 
CHANNEL, TETACHES 
STREAM: REAT TACHE'S 


TM 
ran ~Clese chanine } 
sFOR UNA TTACHED STREAM ° 
B Be Ssrrs- (HIRE STREADHS 
we 


Ta aA , eS men net? ¢ las set foe  Srreams ure ig- 
AR Cabe : & TRE AM TS STANDARD 


tC! cnt T 


F E CALCULATOR ETOCS 
HANNEL FROM STREAM: &> 
ITS FREFERRED CHANNEL. 


sue owe 


orm 


WHER 
CHIE TR +4) ee 


Lo 
Abie Hi.» BC sHL 3-> STREAM INITTAL IZATION BYTES CONTAINING 


te. eet HL.) H PREFERRED CHANNEL ADDRESS. 
LD By (HL) 


EX DE. He 
Li GS a 


INC 
Le CHL). E 
RET 


Hp ta WITH CHANNEL ADDRESS BC: 


FUSH HL. 


os 
w 2 


TNC , i a 


ING HU 
Luc, CHL» sO = DEVICE SPECIFIER 
EX Best 


170 CODE Th CLOSE CHANNEL 
DEFER “K< 
i) 


HEE BC 


ry 


SROWTINES TO CLOSE CHANNELS FOLLOW, 


penren Wi TH DE -> DEVICE CODE BYTE, (SP) VALUE OF HL SAVED 6 


ENTRY TC CLOHAN, 
WHEN FINISHED, POP HL & RET 


F A STANDARD 


STREAM 1S STANDARD, DE -> STREAM DATA, 


sHERE WITH DE -> STREAM DATA, BC = CHANNEL ADDRESS 


my 


™ 


as 


OSE ETC CHANS LI/E3/1782_7C0 FAGE 


OPEN, CLO! A 2 
LO ORI CODE M STMT SOURCE STATEMENT ASM 5. 
OO37 EL 447 CLSE_LP: FOF HL 
00238 cy 333 ; RET 
5 ; 
450 GETSTM: Head STREAM 
4510 —— oe STREAM areas N FROM CALCULATOR STACK, HL %-> STREAM 
ited ey 452 DATA, BID 2= CHANNEL ANDRESS. 
ChOGaG X 453 TALL FIX UL, sA S& N 
FEIO Hd CP 14 . 
S802 bale) es JKC sI1F N c= 15 
a 454 ERROS VST FE SERROR G, INVALID STREAM. 
OO4d CE” ss RST 
ool 17 457 "ACT? 
453 a 
ong CbOS 457 LOMZ: ates A HILETR 
Dodd OTF 440 BLCA 
JES 211050 441 a ree 
4s 442 LO CLA ; 
Red By 0600 AL th BO : 
OTE oy 44 ADD HL, BC sHL &-> STREAM DATA 
OOM 4E » 465 LOC, (HL) : 
Oo4y 23 464 INC HL e 
GO4E = 446 447 LOB, CHL) sB s= CHANNEL ADDRESS 
QO4F 2B 463 DEC HL 
Ooso CY ALD ET 
, 
aw 
| 
| 


OPEN, CLOSE ETc _ __ CHANS 


MPE 


dR 2s LON 
EX rit: Hi. 
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THE 


{ HE 
STREAI 


LO HL (CHANS_) 


Ot tie idea 


Lic: OBI CODE W STMT SOURCE STATEMENT 
470. #EJECT 
477i 
472 OPEN: 
473 
474 
475 

. 476 
477 
473 
OOS1 EF 
OSS rd Ot 479 
QRS BS 430 
ws4 = CTP00 0 OR 4G 
7 4 
1 4 
ZoLG 4 
Ei 4 
ZA4FSC 4 
ay 
23 


= 


OO71 CN7e00 
“OO74  . 73 
OO7S 23 
O76 72 
OO77 Cy 


OPCHAN: 


O73 ES : 
oOn7 CHooad x 
Gast 7e 
OO7 C1 B1 
OO7E BOOZ ay 
> ERRFs 

Oise cr ; 

OE 


LOS: 


<m 


ING 


ae 
f 


=> 
bathe J 
sae 
= 
af 


Te: 
> 
ae 
Zl osh ARE At 


of 


NDS ie ST 
ar 
ti 
= 
wb 


- 
Tt 
= 
= 
“7 


Aiek Hi 
CALL RFs STK 
Li #), Is 

oR : 
JRONZ» bo? 


PUSH Es: 
LO A, (DE) 
pee eae Hie 


ae 
Loe “8 (HL) 
Lo B 2 a 
ADD HL Bo 
POP EW” 
Je CHL) 


CALCULATOR STACE, 
STREAM. 


i 
RCUONNEL, SPECIEIER OFF 


REE UTES SEAL ENENT PEN. & # NOS ; 
STREAM NUMBER, & oS, THE CHANNEL SPECIFIER, ARE POPPED 


ne CALCULATOR STACK 


NTS ALREADY ATTACHED TO AN TMPERMANENT CHANNEL, 


: # 
THEN ERROR. 
NS CHANNEL S$ & ATTACHES IT TG STREAM # N. 


SOE t-> STREAM 1 
SHL ¢-> 22ND BYTE ‘oF CHANNEL DATA 


tIF STREAM MOT bara OPEN 


FA t= DEVICE CONE 
sHL t-> STREAM DATA 


im H Ie STREAM ALREADY GFEN WITH TNFERMANENT ~EHANNEL, 
HE ERE WITH HL 3 PA. LACE FOR STREAM DATA, CHANNEL : 
TO) OPEN THE cide & 


CALS 
ts CHANNEL ADDRESS (RELATIVE TG (CHANS 
‘ESERVES HL. H 
| 
SUNLESS SPECIFIER EMPTY 
TERROR F. INVALIC SPECIFIER. 


eas ae . . Se pete cme 


$A 3= DEVICE CODE) (CAPITAL LETTER) 


ry 


iIF INVALIO DEVICE cope 


pee earH OF SPECIFIER 


FBC oss 
iTO CODE Ta CFEN CHANNEL 


iN 


ATTACH IT TO THE 


CULATOR STACK & OPENS CHANNEL. 


o; 


G 


Lot 


OOS 
oOave 
Q097 
OO! 2 


Ov 
OavE 


OOAQ- 
OOAZ 


OOA4 


rays cei 


MVS 

OOAK 
. OOAL 

aoaAn 


OOAE 


CLOSE 


OBJ CODE M. STMT 


COPA RIT Se 
Mt Eee CST 
o . 
: a 


1570 


ETC 


EROnCRONCRAAER 


R 
i 


 CHANE 11/23/1782 TCC PACE _4 
SOURGE STATEMENT ASM 3.9 
SPEC.Tt rete “Ke or od : ; 
DEFB OPEN K-% | ‘ | ; 
DEF E H ; €, 
DEF OPEN. 5S-$ ! 
DEFER ” ! 
DEFR OPEN _P-$ 
DEFB O i 
STHE ROUTINES TQ OPEN VARIGUS TYPES oF CHANNELS FOLLOW. 
SENTER WITH DE -> SPECIFIER STRING, bit = ITS LENGTH, (SP) = 
-4 VALUE CF HLL SAVED CN ENTRY TO) OPCHAN. | 2 
+ WHEN TENTEPEPS POP HL & RETURN WITH BE = CHANNEL ADDRESS. 
OPENK? LODE, CHAN UK +1 : ; 
JR Lo7 
OPENS? kD EE, CHANUS+1 
AR Lo7 
OPEN_Ps LL E, CHAN-F +1 : ; 
LOW73 +HERE WHEN GPENING FERMANENT “CHANNELS, WITH E = CHANNEL ADDRESS 
j0e= 0, ERROR F IF BC <> 1. 
DEC Bit 
EE ALB 
nes NZ: ERRF 
thA $0 :2 © 
Be if HL ' 
RET 
CAT: 
FORMAT: 
MOVE s mare 
DELETE: JR ERRO 
END sf 


G 


uu 


AL. 


m_ 


LIST ON SCREEN ETC 
Loc Ob CODE M STM 
Oo000 E 
OOD y F 
OOOE C x 
DOO FE 
F 
t: x 
FL 
ro 
E 
7 
ElVS2 
17. 
KR 
RK 
RK 


OO3E 
OO41 


LIST 11/23/1782 700 FAGE 


1 
GURCE STATEMENT ‘ ASM 5.9 
*#HEADL LIST ON SCREEN ETC 
#LIST GN : a 3 = 
Gi BER td ppl Sy oe RECLEN: CP_BC, SE L-REC FENDI L! eh 
G DE DE y PUT Le ae ALLSTAR -LIST, Ht 
BCOBAL PUT, PUT LERS PRCOR. CEST NeXt Ly SUIBL TN, SUBILNI 
E WRAATTE CLS BF jig.4 
€) TRESET  PUTBTOSSELEC sENIT 
E XU, STK_G, OP TNO, TEMG, END? $ SYNTAX 
E) IS5YNTWO 
E tEXPRN. 
E 1 IGENT 
E SINGUT 
LIST: i ARAN ON SCREEN 
fa H t. ALGORITHM IS THIS: 
3 me) TS aa (EL PRC (TOF) 2= (EPP 
: Lo IS MOVED I 1s WITHIN (ABQ Gn) 
:: A SON UNTIL THE CURRENT 
H y-- ge (fut oy & 
3 _? BEEN 
3 5 Hee TH CMS ONG cL 
3: MAT 4ERE aera TS WAY ABNVE 
3 LRARWANL TO MOVE DOWN: AFTER EACH LT 
§ THE CURRENT LINE HAS NOT YET BEEN LIS 
i ARCHT TO SCROLL, THEN (STOP) TS MOVED DOWN CNE 
3 EE , 
3K rie (TVFLAG) 
4 EE TOS. HARE SIRE THAT (S_TOF) IS AN EXISTING 
3 : § WE GON GET 2 IDENTICAL LISTINGS, 
tr Ne : te RETURN ADDRESS FROM LIST 
+ ~ SHE s 
i CLEAR SCREEN ~- ALSO SELECTS CHANNEL $3 
FLAG) 
wy PRINT LOWER HALF WITH BORDER COLOUR 
ie SV+FLAGE) 
TNE} 
a G1F CUR. LINE OFF TOF OF SCREEN - (3_TOF) s= (ELPPC) 
CALL FING 
4 ee ne “ENS-2) 4b LEN 
TE yt 
by UL» Tie HL coe t= Se S0-ANDR. OF LINE (EPPO) 
oe nee : THL s= ~ TOF ) 
CALL END. h 
For Bi ES APPROX, s= 22-ADDK,. OF LINE (EPP) 
LLTZi os WHEN: SEARCHING : 


Ung LPROGRAM FOR A LINE WITHIN SHOUTING 
ISTANCE GF CURRENT LINE 


D Ee 
eneane HHL -3 TOP LINE, fC APPROX, = "30822 - ADDR. CF CURRENT LINE. 
<; At 
CALL RECLEN 


LINE WITHIN Pe BYTES OF (ELFPC) LINE 


, 3] TC) 
ex ice HL / 3H * LINE “AFTER JOP LIN 


Lis ‘T ON SCREEN ET 
Loc EOI CODE me 3 

OO4Z mh 

0043 23 

o044 SE 

004s 2h 

OAs EDS36C35¢ 

aaa 1SEb 

ooar 

QO4F 
RK 

: Eb ’ 

if CLVEOO R 

OOSB FOCBOZAG  - 

ran hE Cy, 

OoO40 SES 

OO42 1a02 

0064 

ODL 

OOAR X 

OO4TL xX 

QaO70 LF 

O07 4 t LE DOWOO xX 

O74 S14 

0076 

0077 - 

O72 

O78 

oo7 Lt 

q aT) TF = 
x 
x 
X 
x 
x 
RK 

OOFVE LEOL 

OOAQ COCQOO K 

QUA L7 

FOCHO24L6 


‘OOA4 


PEHHPSHSELS ESE HS SS pops 4 


Ay SOURCE 


aN 


bal 


ry 
biw~ 


> 
in 
NN 


ts} 
@ 


r 
r 
~ 
oS 


o 
Cig me Seng: 


KLLLSTs 


ies 


Sees 


Se 


LKT2e 


NENENE sas  R 
Pie 


NN OSS 
hore NR 


Lit 


Deen) 


Fu 


LET238 


FUTSRRE 


LFOZs 


Od 


K_LISTs. 


LIST 
STATEMENT 


Li se cHL? 
INC 


‘a en THI) 
C 


EC HL 
LO (STOR), DE 
LLTZ 


E 
CALL PUTSRR 


11/23/1782_700 


. 


iNOVE TOP LINE ON ONE. 


SIF LINE FOL ee 
SHEL 3--> LINE BEFORE 
$ WRITE GUT PROGRAM 


RES LIST, (IY-YeTVFLAG) 
RET 


JLLIST STATEMENT 
LO AS LEROET 
JR LETZ 
SIATEMENT, THE SYNTAX IS ; 
LTs7 C NO ) bn Sa 
CIst STREAM TTEM EC NO.EXFRN J 


TIS 
EMG 


e ALLS 


ak v L K 


4 
CALL OTRO 
JR OLETA 


CALL CTE No 
CALL END? - 
CALL FIX. 
LL ALB 

AND “SFH 

LL HA 

LDL, 

Lo (epee 2 HL 
MALL FON 


poker ITE L INE 


nae Or) 


SIF NO STREAM ITEM 


, 
‘ 


SIF NG COMMA OR SEMICOLGN, 39 MUST BE END CF STATEMENT 


i 
| 


| : 
rors PROG RAM USING PUTLSR, STARTING AT LINE TO WHICH 
mH) 


ROGRAM LINE, IF BAT LIST OF (TVELAG) 1s 
CKING NECESSARY Ta COMPLETE LIST & “ADAUST 


iWRITE NL 


CH 
Lis pT, (LY-Y+TVFLAG) 


LIST ON SCREEN ETC of REST 11/23/1982. TOC PAGE 3 
Lac OBI CODE M STMT SOURCE STATEMENT ASM 3.7 
QOAS 7 AR Zs LFO2 SIF LISTING FOR LIST STATENENT 
OOAA : LE Ay (DF_SZ) : 
oon ae SUE CIY-Y+S_POEN+1) * : " 
BG : pa SUNLESS AT BOTTOM OF SCREEN ; 
OR E 
SCVENS 2 RET Z . 3IF HAVE GUTPUT CURRENT LINE 
OOB4 3 PUSH HL 
GCORS 4 PUSH DE | 
OES 3 LO HL,»S_ Tor p 
R 4 COLL NEXT 
7 FOP HE 
: 3 FOP HL 
SEO 2 dR LPO 
“() - . 
1 FUT_SRe § QUTPUT SOURCE ECORD ett Tt BY Hs SING PL ur 
rs 3 IF CURRENT LINE 0 & ERVES EB, €L5 
3 5 Tas ” ea If BEFORE Clin | LINE, é TSO IF AFTER. 
w24 $ (BREG) s= & (THI 5 WELL SURVIVE ERROR, BUY Puss CALCTR). 
S25 $ ake CAN HE USE JUST EB, WITHOUT CBREG)? 
Siné __§_ EXITS CALLER IF RECORD NOT PROGRAM, ELSE. “A t= NL 
oor. ELABAISC S27 LO BC, (EPP) ie 
ROS : Hee CP BC + NE IF HL = (DUFILE), COUNTS AS “AFTER” : 
S25 ie eee 
‘ S30 JR Z LPL 3 IF CURRENT LINE | Hitt WANT CURSOR IN COL & 
5 fw . LO fE,O 3 ELSE t= 0, ALSO SET E TO ZERO 
“Es 1 2 RL E H CHANGE Ta 1 IF BEFORE CLIRRENT LINE 
L7: a LPL LD CIY-Y+BREG).E 
OOS E: 4 LT HL) 
oOoOn4 4 3 cr OLOOGOOOE 
OoOns # Por BE a ; ‘ 
ol 4 0 Brio ie SIF NOT A STATEMENT, RETURN FROM CALLER. 
ODL : “LAS. ~ 7 
Ook Li: K vec PUT_LN s OUTPUT LINE NUMBER 
oobg 23 5 ING HL . 
eobn 23 241 CHL sSKIF OVER LINE LENGTH 
» OOKE 23 S42 1 HE 
OOLE FUCBOLSS S43 = SEC, CTY-Y+FLAGS) 
OOE3 7A S44 A.D 
QOE4 AZ S45 i a ask, i ; he 
ODES 2805 44 JR ZstPis SEVENTUALLY WRITE “ < IF NOT CURRENT LINE 
‘ R3T WRC s°>" FOR CURRENT LINE 
QOOE7 U7 RST WROH : ar 
PUT s : a ane HL» WITHOUT NL AT END, 
ee CETTHER AUTOMATIC OR FOR LIST) 
3 THE INFUT BUFFER ta THE SCREEN 
THE CURRENT LINE TO THE TNEUT BUFFER FOR 


3 FOR LISTOt 

4ING SS BER ORE CHAR PTH To BY ix. Br iRys & FLASHING 

SPORE CHAR POINTED TO BY (K_CU 

* TE, MOVES HL OM FAST LIME, A t= 
MES: THAT AT & TAB ano hia Noy cecURS iN THE LINE, & 
THAT SLUG & Ni 

x ae 7). AND. ONL. iat te) 

wa GT. 2). AND. (NL u5T. >) 

ASSERTION (Ss SLUG. UGT. 9) AND. CNL.UGT. 9) 


Ser SPC. (1Y- Y+FLAGS) 
LPiSs sENTER HERE WITH BIT SPC OF (FLAGS) CLEAR TO START LINE WITH 


Prise OP 50 0 ee wn ce we we ws we 
>t 


QOES FOCBOICS 


he ech wee SPACE (ONLY WORKS IF LINE STARTS WITH KEYWORD). 
‘QOOEC DS" : PUSH DE 
OED EB EX DE, HL = 
ODEE FOCEBO76 RES LTR, ae Y+FLAGS2) 


LISy ON ec 
Cit CULE MN ‘STINT SOURCE 


Loc 


OOFS 


OOF SS 
OOF 7 
OOF Es 
OoFL 
QOFF 
O1dz 
QLOS 
Olas 
O107 
O10% 
oO10c 
OLOF 
ori] 
Olit 
o114 
ors 
O117 
OL19 
.O11A 
Olin 


O1LLF 
O10 


raed 


it 


pata 
= 


os 


LAC 


=, 
‘o 


Lah Se 


LF17: 


FLASHA: 


FROCUR: 


3T LA/23/1952. 705 PAGE 4 

STATEMENT : ASM &. 9 

LO HL FLAGS 

RES LMODIE Ls (HL) 

BIT INELN, tIY-Y+PLAGKS “ 

AR Zs LEI7 SIF LINE TS STATEMENT, NOT YMPUT PATA 
SEY LMODELs (HL) 


ean (X_FTR) iE -> NEXT SYMBOL 


AND 

SHC HL» DE 

WR NZ LP2 ‘ é 

LD A.’ 7? {HERE IF DE = (X_PTR) 

CALL FLASHA {FLASHING ? FOR SYNTAX MARKER 
CALL PRCUR 


A> tHe § PICK UP ‘NEXT SYMBQL 


LFS SIF END GF LINE 


POP DE 
RET 


ae A= eee THEN, HL + A t= (H 
RETURNS 23 PRESERVES EVERYT WING EI'se 
HELSE. FRESERVES EVERYTHING & RETURNS NZ. 


SOUTFUT CHAR A TO TV. FLASHING, 
SPRESERVES BCDEHL, USES B*C*NWE“H“L*. 


mie =ATTRT+1 


ASSER 
CON Tuts (=ATTR_T+ 
einen ™ ASEERT TON MASK T= ZATTR. T+1 


HH (ATTR -T) $b t= ATTRIBUTE BYTE, H t= MASK 


FOr 

LD (ty. Y+PLFLAG).H 
POP HL ; 
LO (ATTRA) HL 

EXX 

RET" 


SIF BE = (KUCUR) THEN PRINTS CURSOR, 


LIST ON SCREEN ETC £3) 11/23/19732_TCC FAGE oo 
Loc OE COME M STMT SOURCE STATEMENT : ASM Si. 


28 MAKES BIT LMONE OF (FLAGS) RIGHT 
25 iFRESERVES LE. 
2ASBSC 30 LD HL. (K_CUR) ‘ 
a7 31 ANL. A 
32 Sue TIL» DE 
33 RET N TIF NOT CURSOR POSITION 
aa LB A, (MODE) A FOR, NORMAL MODE “2 FOR EXTE 
ba) 7A t= 0 FO CF ONE, 2 FOR EXTENDED, 4 FOR GRAPHICS 
JR Z>LPRS | IF NORMAL e 
ALD As*E*-2 fA re ee OR “Ge 
UR LPR4 


OLSE AQ LPRS: L.O HL. FLAG: 
O64 - 41 ee Chines CHL 
OLE 2 “Ke 
oles AS BIT LMCIDE 1, (HL) Se hat hs 
O1467 44 4 2, LER4 vIF FEYWORD MODE 
OGY 4 ; etd LMODE, (HL) 
O1éb AES i A eon FOR LETTER MODE 
O1é0 47 ‘ bli CAPS_L» (1Y- VAP AGs2y . ; 
O170 AS JR 2,.LPR “4 UNLESS CAPS SHIFT Lock ON R 
O172 AD ‘LD AL “CY . oat 
0174 30 LPR4: - PUSH DE 
O17S a CALL FLASHA 
O17%3 fh, FOP DE 
O173 RET ’ 
“NEXT SLE, 3 MOVE ON Ta MEXT LINE 
. Paes i HL -> SYSTEM VARTABLE THAT HOLDS LINE # 
SE a LD E, (HL) 
23 OL 
S4 LOD, (HL) § FICK UF CUR LINE 4# 
Cs PLUSH HL : 
EE EX DE,HL 
eae] ING HL . 
CHOPO) RK CALL FIND, i 3 FIND NEXT LINE 
epee x } Por LS E 5 PICK UP ACTUAL LINE # OF NEXT LINE 
hw iF 
. 444 DEL 1) se DE UNLESS GETTING INFUT DATA 
FIITBS746E bibs RIT INPLN: Cryse LAISX-- a F 
co é RET s1F GETTING. ane ATA 
72 Led Lo eyo § ELSE UPDATE LINE # 
SE &70: ES HL ; 
SE 73 &71 LO CHL), E 
OLSF Cp &72 RET 


LIsy ON SCREEM ETC LIs 11/23/1732_TCC PAGE 4 
Lio O85 COLE M STAT SOURCE STATEMENT AEM 5.9 
ote #EJECT 
Seas i 475 LWb2: : sHERE FROM WRLDIG TF DIGIT IS ZERO 
OLz7O 76 &7& LO ALE 
Ov. A7 £77 AND A z 
O1v2 Fa 473 RET M 3 He a F 
O13 1S0n ie JR LISTCH + ELSE RITE CHAR FROM E 
AEC 
{31 WRODITG: SWRITE DIGIT FROM NUMBER IN HL» ~(OThu 
432 sIF DIGIT 15 ZERO, WRITES CHAR FROM“E OR 
433 SIF DIGIT NONZERO, WRITES DIGIT & SETS E 
ee 434 SPRESERVES BCD 
Oly 635 XO 
O1L9S 634 LWO7: AGL AL. Bo 
Oly? 687 ; I A ; . 
Ove 438 ae a LWLZ iDIVIDE HL BY BC BY REPEATED SUBTRACT 
OLPA 639 SRO Hl, BO VUNDOG LAST ATTEMPT? THIS CLEARS 
o1ve &70 tte a 7 . 
Oo17D &F JWR Z,LWO2 . dF DIGIT IS ZERO 
O1LSF X 24 JP PUTDIG : 
es . ‘ 
694 “LISTCH: SOUTPUT CHAR A FOR LISTING, ECHO-GR EDIT. ee te 
G75 SADIUSTS BITS LMODE OF (FLAGS) & L_-STR OF (FLAGSZ) BEFORE 
494 ; OUTPUTTING CHAR, 
£97 : _. S$PRESERVES BCDEHL, USES B°C’D“E*. 
OLAZ - X 69% CALL WIGIT? Di eal . : : 
O1AS 4o9 : JR NG LLH2 SIF DIGIT, LEAVE BIT LMOOE1 ALONE 
O17 700 CF SPACE+1 
QA? 7O1L JR Co LtLHe IF SPACE OR CONTROL 
QO1LAR 702 i ipbite ts cay VIFLAGE) 
OLAF 703 CP 
CAEL 704 of He ral 
Ol b.3 705 = pear 
OLES 704 : . oR NZ LLMIS SUNLESS COLON 
707 sIN A COMMAND, COLON GIVES K MODE UNLESS 
708 Hi GIVES Lo MOnE. IN INPUT DATA (ORDINARY Nok rt 
ees 9 arte a 709 3 GIVES t MODE. 
Q’E7 — FOCHS76E 710 BIT INFLN, (1Y-Y4FLAGX) 
OL EVE 2016 711 AR NZ, LLHIS ge 
OLE LW SOS 712 BIT LoSTRs (1Y-Y+FLAGS2) si 
Ore 2014 713 AR Zs LHe SUNLESS IN STRING 
OMS 130E ts JK LLHIG 
“J! 
O1C5 FEZ2 714 LLHASs CR “NN a 
O1E7 = Bada 717 a NZ»LLHIG iUNLESS STRING QUOTES 
Oc? Fa 71s PUSH & 
O1CA BAOASC 719 Lo “Ay CL 8682) 
GACH. EEO4 _ 720 Sh 
O1CF SZ6ASC 721 
OS FL 722 
O1b3 FOCBOIDS 423 LLHIS: 
enca . 724 LLH2Z: 
O17 D7 
OLDS Cy 725 


IE Rh DIGIT) IN Be 
ING IF E<O 


y ON SCREEN Ere. 


[ST LIST 11/23/1982_100 PAGE 7 
Loc OBI CODE M STMT SOURCE STAT 


EMENT : ASM 5.9 


724 *EJECT 
723 FIND SFIND LINE WITH NUMBER HL: > SSUNES | Ht £2 z .. 
72? ——_ sIF FIND LENE? RETURN 2 AND Fit” => CINE, SE "RETURN NZ_AND 
730 § HL -> LINE pha NEXT LARGER ed OR NZ ANG HL=(VARS) IF 
724 + NG LARGER L tt 
732 . $LEAVES REGQUES STRD | LINE # IN EC, CLEARS CARRY 
733 _#SETS DE -> PRECEDING LINE OR = HL IF NO PRECEDING LINE 
734 PUSH HE 
735 LD HL, (PROG). 
7:34 LO TH. 
737 LD EL ee ; 
735° LFLis POP BGS $C a= KEGD LINE # 
Ro 739 CALL CP_BC > : 
3 740 RET ONG SUNLESS LINE # < REG LINE # . 
_ 7A PUSH Et : 
RO 742 CALL KECLEN ; 
743 EX DE, HL a 2 
vad JR LFLI tELSE TRY NEXT < . 
co) : 7 
746 CPLECs # COMPARE LINE OF LINE FTE TO BY HL Penner BC 7 
747 #SETS_ Z F EQUAL, CARRY IFF LINE # Bl 
743 SPRESERVES BCOEHL 
OLER  7E 749 LD A, (HL) 
O1EC E03 730 CF ow 4 
OLED co Tal RET NZ sIF MS BYTES DIFFER 
O1EE = 23 72 INC HL 
O1EF JE 753 LO A» (HL) 
G1FO 2B 74 DEC HL Aas Nios : a 
O1F 1 BD 735 a SELSE COMPARE LS BYTES 
OFZ cy see RET : 
wat 
733 SUBLING sFINDS a Y DTH STATEMENT OR JST STATEMENT WHOSE KEYWORD 
739 -  § 1s A LINE POINTED AT BY HL 
740 fi. ie We OH ae Se ee T= FOUND, THEN RETURNS Z WITH HL. & 
741 5. 1-ADD) -> 1 BYTE BEFORE STATEMENT. (IF THE LINE HAS 
ee + EyACTLY D-1 STATEMENTS THEN THE NEXT LINE COUNTS AS THE 
é.3 3 4 
744 i2. IF E-STATENENT [5 FOUND, THEN RETURNS NZ, NC WITH HL & 
745 3 BD) <> KEYWORG, DP 1S DEC REMENTED BY THE NO. OF 
746 3 NENTS. LOOKER AT. 
747 is. FE STATEMENT NOT FOUND & THE LINE HAS FEWER THAN 0-1 
743 5 STATENENTS EN RETURNE N20. WITH HL, (CHADD) -—> NL AT 
749 i END OF LINE 
770 SPRESERVES BE ae 
771 5 ANTICIPATED THAT THIS BOLT INE ae A. NOT BE USED BOTH 
772 5 x WNT STATEMENTS & Tihs ARCH FOR A KEYWORD AT THE SAME 
773 5 TIME? CITHER 0 ORE WILL BE Oo. 
774 SASSUMES NO AT OR TAR CONTROLS, & THAT SLUG, Soh “a? & NL 
773 H CANNOT BE TATA FOR COLOUR CONTROLS (I.E. > 
776 5 “TF CONDITION’ COUNTS AS A COMPLETE STATEMENT. 
' 777 ot CTY AND, (0 802 MGT. 9)” 
aT. i WOT.) ANE eee, UT. vy) : 
SLUG, MGT: 2). ANT. C8" * SUGT. 9) ‘ 
773 ERT 244" 8" UT.) ANT. CML LIGT, ’ . 
NE MOT. ae WWGT. ae ANE. CNL Huet 3)) - . 
ERG IN ASSERTION (3 GT. 9) ANDI. (NL.UGT. 2) 
“Nit . 
O1F3 23 ING HL 
OYF4 23 ING HL 
O1FS 23 ING HE r : : 
SUBLINI: SENTER WERE WITH HL -> JUET BEFORE KEYWORD. 
SSTATEMENTS ARE COUNTED RELATIVE TO THE STARTING POSITION, NOT 


LIST ON SCREEN ETC LIST 11/23 /1982_700 PAGE 
Lie Ons CODE M STMT SOURCE STATEMENT ABM S. 


ann 


Bae Zi THE BEGINNING OF THE LINE. 
OES ZzESDSC 7: . LO (CHR AbD) HL. 
GOLF?  GEOO vk: . Lh C.0 3C IS:MADE ODD WHEN WITHIN A STRING 
OLE is 7 LSN2: fee Oo 7 . 
OLFC fet) “ET @ . SIF DTH STATEMENT FOUND 
. 5, 7 RST NXT-1S 
OUD £7 ae RST NXT_IS 
GIFE BE 790 CP Eee : 
OLFF 2004 72h Jk NZ» LENSS SUNLESS =- STATEMENT FOUNTS 
O2OL A? 792 AND A é sSET NZ.NZ 
O202 Cc? 773 RET 
oa 
775 LSNSs INC HL. : 
7? Lu A. (HL) 5A 3= NEXT CHAR 
K 7? LSN3SS: CALL SLUG? | 
TR LD (CHADD) + HL 
oR NZ, LON4 SUNLESS STRING GUOTE FOUND 
pec SCHANGE FARITY OF © 
i 
JK Zr LENAaS SIF COLON FOUND 
} - ep THEN | in 
SOS AR NZ LSNS SUNLESS THEN FOUND : 
B04 LSNas: BIT GC | ; 
807 JR Z + LSNZ SIF END GF STATEMENT (COLON OR THEN NOT IN STRING) 
F Boe LSNS cP NL 7 
20E3 woy IK NZ» LENG UNLESS END OF LINE " 
is G10 CEC Bb” 370 GET ZERO FLAG R RIGHT 
37 aii Scr 
Cy giz RET 


gue ON SCREEN ETC LIST M1/23/198e_ 700 PAGE 3 


LNG OB CODE MOSTHT SOURCE STATEMENT ASM S.2 " 
Bly *EVECT 
Pe) 
S15 RECLEN: FEING LENGTH: OF RECORD PTD TO BY Hi 
B16 aes SPRESERVES HL, SETS BC = LENGTH AND DE = HL+BC, ALSO NC.NZ 
317 PUSH HL 
813 LO Ay CHL) 
17 CP 40H Oe : 
S20 JRC) LAL VIF SOURCE STATEMENT 
e2l BIT SHA R * 
AR Z,LRLS SIF STRING OR ARRAY 
ALD AsA 
K te MLRLZ .vIF OMS 3 BITS ARE O11 bene NO.) GR 111 (FOR VAR) 
CF SELSE 101, MUL.TICHAR. NUMBE 
LRLZs nr bC,5 3 HERE wat A STABLE IF- NOMEC Re OR FOR BLOCK 
lf Ne LRL24 SUNLESS FOR VARTA BLE 
LO C11 13 NUMBERS AT S BYTES EACH + 3 BYTES FOR Loor 
LRLZ4: RA 
* INC HL iNOH CARRY HOLDS "LAST CHAR" Hit (BIT & GN 1ST 
et CHAR, PE 7 GN THE OTHERS 
3 JR NO, LALEA . : 
is JR LRLS. 7 eS : “ : 
23 LALZa: INC HL 
£3 LRLSs INC HL 
4E Li. CHL) 
23 HL 
44 LD OB, (HL) . . 
23 H — pr RECORD 
oo LRLS: = ADD HL, Bc Xe START OF ee ORD 
[it 2 pp.  ., POF DE 3 HERE WITH HL -> BYTE AFTER RECORL 2 crip oF RREC 
843 SETAC: ENTER WITH HL = ¥, DE = x i siete 
: ’ 44 #EXITS WITH BE = ¥-X, HL = X, WE = y, FRESERVES A 
O248 A7 B45 AND A 
O24? | EDS2 44. SHC alt DE 
O24b 44 347 Lb 
eZ4c Ab S45 Lis ee 
OZ40 19 849 ALG HL » Tie 
OZ4E EB S20 (DE HIS 
OZ4F LG Bo EY 


oO 


LIST ON SCREEN ETC LIST 11/23/1762 700 PAGE 10 


Loc OBI CODE 4 STMT SOURCE STATEMENT —. ASEM 3.7 
HEJECT : 
ne DEL _DEs sKDELETE FROM (OE) UF. Ta BUT NOT INCLUDING (HL) ro 
O250 Co4s0z R CALL SET_BC 
DELRECs Hy REMOVE FEGone CHL) OF LENGTH FE, _FROM FROGRAM OR VARTABLES 
s ENTER WITH BCHL SET UP AS BY RECLEN 


4 ELSES. ag EY pe eeu Le bes sT oF STUFF AND UPDATING 
; eee? 


( N 
F RESERVES HL. CLEARS CARRY 


oF aie aerate = COMPLE MENT ACCUMULATOR 

43 tp ke 

y . 

oF corre O fcPLe ee 

O% : “IN he : PEC NOW NEGATED — 

CHIQO x -REMG2Z_ ae Gee 

Eb ER DE. HL ; 

re ALL HL, DE NENG CARRY : = 

o ati} : ~ 3 ic FARK ae 

oS PUSH GE ; patting Shock heneh- eof arc 
2 ELBO LDIR SMOVE LWWN ~ .01@ ~ Bone HL HEF BCEN BC 
2 EL eee HL Wwe (HL) 7 © pE= DE +] | 


|; Report Oe 


oe a oe ae ea EL, od 


Yh RBC =O, 


LIST ON SCREEN ETC oe REST! 
Loc OBI Cone: STMT SOURCE STATEMENT 
877 #EJECT 
e7¥ LINENG: : sGETS- 
EO + 1S IN 
7 (CHLA 


G 
‘ (oH 
2AS7S0 LD HL, (EL TMED 
Zu eC ML : 
PESOS LO (CH AGL) HL 
RST NATA1TS 
E7 SY NXTLIS. 
21 LO HL» MEMBOT 
2 : LO CSTENKXT), HL 
Cc x CALL ININT 
C Xx CALL FPSEN 
3 . JK CLUS 
me LU HL, -i1oa000a 
7 ered ALG HL, BC 
BAGaDO x Loss AE ove 


ESO000 x 
ee PUT_BC: 


= 


FUT.LNé 


ee Mf, 


Mi “be Too” 
CALL WROD1G 
bb ,-16 


CALL WRODIG 
LD AL 
CALL PUTDOG 
POP HL, 
FOF DE 


RET 


NE 
“RANGE & LEAS 


RITE NUMBER FROM 
F AC < Oo THEN 
PRESERVES DEHL 


ES GE, 


11/23/1982_TCo 


NUMBER Poon gely Lie CHECES THAT IT v. 
CHAR OTHER THAN LINE NUMBER 


Hy) 2-2 1S 


MOVE CALCTR STACK DOWN TO THE MEMORY AREA $i THAT 


SWHENCE TO 


s1F NUMBER 


INE NUMBER 


LED 


FRINTS 


ney LINE #5 CAN pe READ EVEN WHEN SPACE IS_ SHORT. 


SYNE RR 
TOO BG 


BC 34h pastes, INTERFACE AS LISTCH | 
(FOR LINE NO. -1 IN ERROR NESSAGES). 


| 


VIA LISTCH AZ 4 DIGITS BrGAT ALIGNED SPACE 


ITH HL -> 1ST (mS) BYTE 


ab ces 


1 70 HL 
| 


SYNTAX CH 


Loc 


Oooo 
O01 
oOnudZ 
Ons 
Cow4 
OoosS 
OOIE 
0007 
Os 
4) ( Wied 
voOdA 
OOOw 


Ocal 
OWE 
TWIerw) oy 
oOO1d 
og) 
OOLZ 
OOS 
ee 
OOS 
aOo1e 
Oo 7 
(a us v1 ig 


Cp. 


EC 
™) 


HIN 
Cone 4 STMT 


1 


3S 
335 


“2 UREA 


o 


Sed ed Gi) RT OR] ee eT 
LN 


NRG EGR OG 


Pe BS habla SN 


eLIsST ON 


f 
{ 
: SYNTAX L1/23/1982_1C0 | PAGE 4 
SOURCE STATEMENT ASM 5.9 
*HEAD — SYNTAX CHECKING 


SLOBAL SYNTAX | CHK 2 SYNERR, FIX TEMS, END? ERA» ERRE 


GLOBAL EXCUTE, ERR2, BREAK? DYADIC 


TEMP 3S, TENIO 


GLOBAL FIX TEE rUsie Drees TCM OP TNG, STK 6, SKIP 


EXTERNGL NCOUHL, TOLL, LES 
EXTERNAL REEP 
EXTERNAL S0VN 
EXTERNAL EKOCL3,R_ATTS 
EXTERNAL ++ pin 
EXTERNAL & EW NepET ALC : 
EX TERS FOR IAT > No E, ie TE, OPEN, CL. 
EXTERNAL FINDLL, DEL DE, CINeno, SUBLN 
EXTCRNMAL EPRIN, COLITMAKULPR, INFUT, 
EXTERNAL Fl LOT, DRAW, © IRCLE 
EXTERNAL EXPRN, INTET 
EXTERNAL LET? EINUKN DIM, GET. EL, POPS 
EXTERNAL FRF2E2, FRSA 
EXTERNAL TESTO 
SYNEWE SOF FSETS INTGQ TEMPLATE 
‘ ~$ CEH 
bd : 
-$ Thon. 
h 
5 : 
ond 3H 
~$ pany 
ox) DSH 
$ 
; DSH 


NUR A hie SS 
Sees 


IT 
TPE D0 


ee Se ee Se SS 


aR 0 Wet wok we te wd Pe RED UE HE OS AE HE EP we WE UE Wd wd WE UE we EE OO wD wD WE SE we WO ED VE we wD wD wd EE we 
a EE Pe Se SI UNS SS 


befor ica bar bed a TANASE 
PUR D UNI 
=== 


DEFB TE 


~ 
oy 
a 


e 


A<elS 


TR» ALPHA? 


mm 
oar 
r 
on 
+ 
Dee MOT mt 


TABLE ’ 
DEF 
AT 


ttre y 


CONT 
Tid 


— 


SYNTAX CHECKING = ss SYNTAX 11/23/1982_TCC PAGE — 2 
Oboe GI CODE M STMT SOURCE STATEMENT ASM 5.9 


3A 447 $s F7H RUN 
40 44% + FH SAVE 
42 445 : FH RAND 
on 4a $ FAH IF. 
47 4st 3 FEN CLS 
tS 432 5 ECH DRAW. 
r 44 4s3 § FDH CLEAR 
a030 Es 454 3 FEN RET 
owl So 4s 7 ; FFH COPY 
: Aad LOOH-MINLEW 


by 
SYMEW+ 1O0H-HIMOERW) 
STIGN $=SYNEW+ 1 OOH-MIN_KW 


SYNTAX CHECK I NG 
Lone 


O042 
Oods 


wogs 


OOF. 


yo- ic 


GOaa 
rare bE 


oOoak - 


ive: 9 0) 
OO4E 


(wl erate) 
iW) tds 1 


Oe u 


OBI COLE 


rary) 


BBO? 
4 


OO 


£303 
oo 

Q000 
a 1G 100 


Os 
oOaoo 
OS 
6A01 
(a8) 
Cngag 
On. 
S704 
OS 
Oooao 


S04 


M 


K 


RK 


kK 


STMT SOURCE 


LINISIN NSN 
CMR Be Sa 


HHSSLSHSSLE 


REJECT 


TEMPOLs 
TEMP OZ: 


TEMPOS 


TEMFO4: 


TEMFOSs 


TEMPOS: 


TEMPO7: 


TEMPOS: 


TEMPOYs 


TEMF'L0: 


TEMP 11: 


TEMP 12? 


SEPIA 


TEMP 14 


TEMP AS: 


TEMP 163 


Biel: W 


DEFB é 
HEFL 
LEFE & 
DFW 


LEFE 


DErG oO 


DEF ¢ 


DEFY 


WEEE ¢ 


CEF W 


DEF W 


LEP E 
LER D 4 
DEFW | 


DEFB S 


DCP 


WEFB SS 


DEFW 
LF ES 
nEFW 
DEF ES 
EW 


LEB O 


LW 


Lik Et 3 


DEF W 


LEFB 
DEFW 


DEF ED & 


DiZFB 
DEF W 


SYNTAX 
STATEMENT 


SUN 


id 1EN 

Fa OME 

& 
GU_LSUB 


i) 
Srop 


’ 
RETURN 


4 
a EQUAL 


NEXT 
i_PRIN 


TMPUT 


NEW 


RUM 


Eb ‘COME (SEE TEMACT) 
ET: SEPARATOR 


= EXFRN 


SIF NGJEXPRN THEN STMT 


e 
7 STOR 
S RETURN ' 


t 


SFOR LETTER = NO.LEXPRN TO NO.LEXPRN CSTEP NO. EXPRNI 


sNEXT LETTER 


SPRINT CEXPRN TCOOMMA-OR-SEMTOOLON CEXPRNID# 

i INPUT TEST 

SDIM LETTER COCLLAR] ¢ NO.JEXPRN COOMMA NO.EXPRNI* ) 
sREM ANY-TEXT 

+ NEW 

FRUN CNO.EXFRNG ‘ 

sLIST CNGO.EXPRNI ~ 


SPORE NO.LEXFRN » NOL EXFRN 


+ 


SYNTAX 
Lua 


aoéDb 
OOSE 
a070 
OOo71 


O0a73 
OO74 


QOO74& 
Oo77 


oa79 
OO7A 
0076 


oo70 
OOFE 
OO7F 


Cnnes 
YOSS 


ye 4 
OOPS 


aOoy7 
OOvEs 
oops 


QO7VA 


AQ 
Oat 


CHECKING 


Gb COE Ms 


Os 
0704 


oo 
1704 


QO. 
&404 
ag 
Oooo 
ay 
Oo. 
OOO 
06 
OO 
F204 
Oo 
ASO3 
OS 
DF OS 
On 


FAO3 


‘oy 


os 


O0O00 
oo 
OoOog 


OS 


OOOO 


os 
Ooog 


on - 
Oo 
OOe 


rity 100 


ouRCE Sy 
SOURCE 


TEMF'17: 


TEMP 20: 


TEMP 213 


TEMP2z: 


TEMP234 


TEMP 2&2 


TEMP29s* 


TEMP 30: 


TEMP 31: 


“TEMP Sz: 


TEMP S42 © 


TEMP 33s 


TEMP 26: 


TEMP Ss 
TEMP 39: 
TEMFAG: 
TEMF4 1 


TEMP Az: 


TEMP 433 


YNTA 11/23/1982_T00 FAGE 4 
TATENENT ASN 8.9 

LEFE 3 SRAND, CNC. EXPRNI 

BEFW RAND ne 
DEF oO $ CONT 

EFW CONT 

DEFE 3 -$CLEAR C NOLEXFRN 

DEFW ELEAR 

DEFE sCLE (FOR CLEAR SCREEN) 

fEFW KCLS 
DEFE SFLOT € COLOUR-ITEM C . \ 5 7 7* NGLEXPRN » NO. EXPRN 
fEFB O 

DEFW PLOT 

DEE & SPAUSE NO.EXPRN on 

DEFB O : 

BEFW PAUSE . 

DEFE SREAD VARIABLE C, VARIABLEI« xe 


DEFW REAL 


DEFE § DATA EXPRN C. EXPRNI® 
DEFW DATA : 
DEFER 3 RESTORE CNO.EXPRMI 
DEFY RESTOR 
DEFB 9 DRAW COCOLCUR-ITEM Co. \ $9 7% NO.EXFRN . NO.EXPRN 
LEFB & 3 i C » NO.EXPRN J 
BEFW DRAW . 
DEFB OO | _ CORY 
DEFW k_DUYP 
DEFB Si FLPRINT CPRINT-TTEM] CCOMMA-OR-SEMICOLOGN 
BEFW KLPR CERINT~ITEM1 1% . 
LEFB S SLLIST CNOJEXPRNI 
DEFW E_LLLST 
SEF Ad SSAVE STR EXPRM SAVE-SPECIFIER 
HERE 14 PLOAL STR.EXERN: LOAD-SPECTFIER 
DEFER 110 VERIFY S1R.EXPRN LOAD SPECIFIER 
EF 14 iNERGE STR.EXPRN 
(TEMP41=TEMP 4041), AND. (TEMP40=TEMP2241). AND. (TEMP SPS TEMP 36+} ) 
NOT. ((CTEMP41=TEMP4O+1) AND. (TEMP40=TEMP39+1) AND. (TEMPS9=TEMP2&+1 )) 
IN ASSERTION (TEMPAI=TEMP40+1). AND. (TEMP40=TEMP39+41). ANE. (TEMPS9= TeMP3s 


DEFE & SRECr NO.EXPRN » NOJEXPRN 
DEFB © : 

DEFW BEEP 

Ere ? iCYRCLE € COLGUR-ITEM € 2 \ 4 4 


NO.EXPRN 5 NO.EXERN 
EF 5 
LEEW CIRCLE 


+1) 


Foon 


SYNTAX 
Loc 


OAS 
OOA4 
QOAS 
QOOAG 

QOOAT 
: OOAS 


ORD 
OOAR 
COCA 
OOAL 
OOAE 
OOAF 


Oo 
OOBS 
CoCr Ey 
Cokes 
CHIE 
OOB7 
OOBE 
QOEA 
OownB 
CEU: 
OOKBE 
OOERF 
Oace 
Os 
OOS 
wuld 


Ooo 
OOS 


Oly 
ouca 


OOLE 
oockh 


CHECKING 


CE CODE M STHT 


Q7 
a7 
a7 
O7 
a7 
Q7 


- OS 


rare) 
S204. 
O& 
Cer) 
OOO 
OS 
1303 
Oe 
yea 
OA 
oa 
(arerere) 


b, 
(are) 
ONaD 
ray) 
oOo 
HOOD 
oA 
py 
Oo 
OOOO 
OQ” 
fare) 
OOO 
Ooo 
OOOO 


a] 
et 


: SYNTAX 
SOURCE STATEMENT 


TEMP 44: 
TENFAS# 
TENP46: 
TEMP 473 
TEMP4a: 
TEMP 49: 


TENF SO: 
TEMPS 1s 


TEMPISZ4 


TEMPS 4: 
TENPSS: 


TEMP SG: 


TENF S73 


FEMP Sis 


tA LA/ BR 1982700 FAGE = Si 
ASM §.9 ; 

DEFE 7 PINK NOL EXPRN 
DEF 7 SPAPER NO. EXPRN 
DEF B 7 FLASH NO. EXPRN ‘ : 
LEFE 7 PERIGHT NO, EXFRM 
LEFB 7 SQVER Nf. EXPRN ; 
DEFER 7 SINVERT NO. EXPRN a 

SSERT (TEMP4S=TEMP44+1) AND. (TEMP44=TEMF45+1) ANT. (TEMPA7= TEMP ALS I} 
COND. .NOT. CCTEMP45=TEMP44 +1) (AND. ( TENPS4=TEMP 45+ 1) AND. (TEMPS 7=TEME 4é 
ERROR IN ASSERTION (TEMP4S=TEMP44+1). AND), (TEMP4¢=TEMP45+1). AND. (TEMP4 


EN. 
ASSERT (TEMP 43=TEMP47+1). AND. (TEMP 47=TEMP43+ 1) 
COND .NOT. (¢ EMP 43=7EMF47+1 ) AND. (TEMP 49= TEMP 4:3+1)) 
Roe IN ASS RT TON (TEMP 4S=TEMF 4741). AND. (CTEMP4 Y= TEMP 4S+ 1) 
DEFER & SOUT NO.EXPRN » NOLEXPRN : 
BEFB oO ‘ 
DEFW OUT 
PBS s BORDER NO.EXPRN 

EFE O , 

BORDER 


i 
i 
baal 
maf MS 


sTEF FN 


DEFW DEF 


SOREN a NOLEXPRN » STRING-EXPRN 


SCLOSE # NOL EXFRN 


De ry 
HEFW CLOSE 
RPE 10 SFORMAT STRING-EXPRN 


QEFE 

PEFW FORMAT 

DERE 1. SMOVE STRING-EXPRN » STRING-EXPRN 
NCR 7, % 

Vit 10 

a) QO 

KERPW MOVE: 

EFR 10 '  SDELETE STRING-EXPRN 
PEER 0 ere . 
SEP DELETE 

QEFB OQ : IAT . 


DEFW CAT 


) 
E 


MP4e+1) 


SYNTAX CHECKING ‘SYNTAX AA/ER/ 1 PEE TOC PAGE  & 
Loc OBI COE -M STMT SOURCE STATEMENT ASM 5.9 
$34 HEVECT : 
A SYNTAX: CHECK SYNTAX GF COMMAND GR PROGRAM LINE AT (E_LLINE). t 
aoce 4 RES INTPT, (1LY-Y+FLAGS) 
Ouls xX 6 te ee 
oon G OR . 
Ong7 & ah Bu IGFFIC) A T(SUEBPR) f= 0 
Oo ne & : 
Wonk 4 Lb cpr. NEDA S(ERRUNR) 2 ~3 * 
TW) fi 23 é AR . 
é Ls: HOCCHLADDY => MIST BEFORE STATEMENT (SUBPPC)+1 IN LINE 
& ETURN FROM SYNTAX OR “EXCUTE ise 
voEO aes 
QUE 4” X 648 Lists wy 
Oo 4 2 LA INt 
OORT RK $20 Rey i OE Tan MANY STATEMENTS GON LINE 
GUEA DF = RET IGN_SP 
e 4 alk 2 HOP + IF STATEMENT I NULL & THERE ARE NO MORE GN THIS LINE 
har ie e ° 
6546 JR ZyL4 SIF STATEMENT NULL BUT THERE’S ANOTHER 
KR 657 LO HL. ENDSTT 
¢ 3 ae SRETURN ADDRESS FROM ACTION ROUTINES 
(Sat 3 0 LF 
; 460 KET NXT_1S sCALL NXT_IS TO ALIGN ON 157 CHAR AFTER KW 
OOF A E7 . RET NXT_IS . : 
OOFE 7? 441 LA ALC 5A t= ERYWORDE 
Gere bce L423 SU MIME 
OOFE . DA4ZOS R 463 JF, SYNERR SIF NOT KEYWORD 
O1ol 4F 244 toh ©,.A 
o102 210000. RK 645 LO HL. SYNEW START ADDR OF KW TABLE 
O165 op bhk AGUS HLS Be, §~- PLUS DISPLACEMENT 
G16 4E b67 Lo oc. (HEY $GET TEMPLATE OFFSET FROM TABLE 
O107 Ov 64% AL HL,» But $~- PLUS OFFSET 
O1d0& 1803 Ghe JR LNTZ 


i ace) weer . dy ir He 4g die ae “ ¥ a or ets, Cees ied 


SYNTAX CHECKING SYNTAX. 11/23/1982_.7C0 FAGE = 7 
Loc OB CODE HM STMT SOURCE STATEMENT : ; ASM 5.4 
670 #EIECT 
472 NEXTEM: THERE WITH (CHOAMM) - CHARACTER IN TEXT, WHEN READY TO 
e238 § aiee GET NEXT TEMPLATE CHARACTER 
ous “UNTSS y $ HERE WITH HL -> TEMPLATE BYTE 
Gl 
677 CR) >»HL 
RK 478 WEXTEM 
673 iSET UP ADDR FOR RETURN FROM THE FOLLOWING 
ya a 
. T4 F1F_SECARATOR (FRINTABLE CHARACTER) 
R Vie! FENACT $- START ADDR. OF ACTION TABLE 


LNT4: 


AbD iis ne $- PLUS OFFSET IN TABLE 
Ali HL» phic i> PLUS OFFSET FROM TABLE ENTRY TO ROUTINE 
as a sy ° . 
GN EP ; 
z iE ~1_ TO SET ft . 
160 AND_Da. TEMPLATE ROUTINE, WITH HL -> CURRENT 
3 CHAR IN TEXT, A = (HL) & NZ. 
sr sHERE IF REG SEPARATOR, CODE IN C 
YNERR sIF REQD TOKEN NOT PRESENT 
15 


sRETURN TO NEXTEM 


SYNTAX CHECKING eee a  BYNTAX 11/23/1982 TCC PAGE 3 
Lo OBI CODE M STNT SOURCE STATEMENT . ASM SF 
409 = #*ESECT 
700 
701 ENDSTT:- ; #HERE AT END GF STATEMENT AT Ree: TINE, WITH RETURN ADDRESS ¢. 
702 des | FROM EXCUTE ON TOP GF STACK 
OLSE CHOCCS RK 703 CALL BREAK? 
O13. SIOZ 704 AR CLET? SUNLESS BREAK KEY PRESSED 
oe . 705 RET CheOR FERRO bo REA PRES AT END OF STATEMENT 
OL33 Cr : RST _ ERRO : 
O1S4 14 see DEFER - 
a 
793 LET: $ 2 VHETHER TO UNF OR CARRY GN, 
70% 3 “oy THEN CARRY ON, 
710 $ 20 (A FPRECTSE? IMF) THEN JUMP To sete 
aes : teeth indeed EXACTLY, & GIVE ERROR N IF IV DOESN’T 
713 SIF (NSERC) = 0 (A “VAGUE JUMP, AS GIVEN BY GOTO, RUN, ETC) 
714 ? THEN JUMP TO BEG TRNING oF (NEWPPC) GR AST LINE AFTER IT 
71S 3 IF IT DOESNT EXTST. 
St tah 714° BIT 7. (1Y-Y+NSPP) | é 
2 : 717 HR NZ, ENDTEN_ sTO) CARRY CM 
715 L.0 HL: (NEMPPO) ; 
» 71? BIT 7H F 
220 . dR Z,LET22 21F FROGRAM ci ehhh 
7 EXCUTEs NES HERE WITH (NSERC (FRENR) = -1 & EIT ERIE. OF 
7 ars .3 (FLAGS) SET Ta EXECUTE: COMMAND LINE AT (en LINE) 
es ’ 
LO (PRO) . 
LD HL, ; . 
DEC HL 3HL 8-> SOH AFTER COMMANT LINE 


Lo TE, (ELLINE) 
DEC Ce DE &-> 1 BYTE BEFORE COMMAND LINE 
LR f2pRerrc) A 


ELiseeis Sha 


1 
SA4450 
1a°33 


CALL FINDLL 


OLS ¢ roe 00 x 
eG LI Oy tNEEEC? 


An ZyLETS 7TF (MEWPRO) EXTS7s 
al i) 
oe - 4 ERRN SIF PREOESE UNE 
Lo A: vin) 7A c= MS AYTE OF LINE NO. 
FNC i LOM OOOE 
Ls 4 
16s 41 SAF SOME STATEMENT FOE | 
; 4: S CRF sELSE PEPORT O, END OF FROGRAM 
ey eared cr . KE  ERRG UN 
Wley FF 745 Bere c ite) ee 
744 
74 REM 3 7S ROUTINE FOR REM. 
: 744 dees © 8 cor LINE. TMCLUDING COLONS, 
vV1GA C1 4 POP Bt EC RETURN VIA ERD TT 
748 HOPS 3 LINE. 
7A 3 ITAX TEM FETURMS STRAIGHT AWAY CFRCM SYNTAX). 
7" 3 [ING THEN (NXTLIN) -> LINE NO. OF FOLLCWIN (3 LINE. TF 
5 & 75 NOT A PROPER LINE NO. THEN RETURNS CFROM EXCUTE), 
: je 3. 6 ELSE MOVES GN TQ LINE. 
OLE xX CALL INTET? 
ol RET Z 
OLEF Lis oor (NXTLIN) 
O172 Lo ai Louooouls 
O174 Aric” Citi.) 
OWS RET NZ 
OL7S6 xOR A 


740 LET23: SHERE WITH HL -> LINE NO. GF TESTINATION LINE, A = SUBLINE NO. 


SYNTAX CHECKING 
Loc 


Z 
z 
/ 
/ 
4 
/ 


O1As 
O1Ay 
O1AA 
O1AB 


o1AC 
O1AL 
OLAF 
Oo1bt 


OLB 


OLB 


OLB? 
OBA 
CoA RSES 
O1be 


OBI CODE M 


RES 


FESA 
CAEQOO 
C4202 


TAX 11/23/1982_TCC ‘PAGE 7 


oe SYNTA J 
STMT SQURCE STATEMENT AIM 5.9 
ze} ar 3 CF STATEMENT SOUGHT (OR 0, MEANING 1). 
743 AD: ALO - sA 3% 1 IF IT WAS O Sow 
764 LO DO, (tL) ; se 
7653 The: H 
76 LO E. (HL) 
747 LO CFFC), DE 
743 cH 
763 LAE, (HL) | 2 
770 uC oH | 
771 LO BD, (HL) | 
772 EX DE,HL 
so3 ae Fit.» Di ; 
iy LET24: i HERE nena rN > LINE NO. OF NEXT LINE IN TEXT AFTER 
vl > 
777 3 hE - RYTE NEF ORE VET STATEMENT IN DESTINATICN LINE, 
773 $ a= SUBL ENE No. GF STATEMENT SQUGHT. 
Ras LD STN Se sONXTLIN) = -> Fane NG. GF NEXT LINE 
Pate pa Ney iss 
7él LO (CHUADTN), HL 4 (CHW ALD) 2-2 JUST BEFORE 1ST. STATEMENT IN LINE 
7 th nA si s= MAX saa le 1). . 
7 LO E£.0 
7 LL CLY-Y+N= FRI) a1 
78 Dec oh 
73 LO (TY-YtSUBPPO)D = 
7 JP Z,L54 3FOR SUBLINE 1. 
7 ING D | 
735 CALL SUELNI : i i ‘ : 
7 A Z,ENDTEM 71F ene TATENENT FOUND. (CHADD) —> ‘3° OR NL. 
7? ERRN: RET ERRGR sERROR N» LINE alee 
RET ERROR 
DEPE v+oNe-“ AC i 
ENDY: i RETURN INMEDLATELY IF ACTIONINGS ELSE WASTE THO STACK ENTRIES 
& CHECK FOR END OF STATEMENT. . ; 
CALL INTE T? 
RET NZ =e 
TacARD RET ADDR FF ae ENT? 
7 RETURN ADDRE To ENDSTT 
ENDTEM: aE STATEMENT 
FROM SYNTAX GR EXCL 
ea oR NIL & WE WISH Te “TISCRIMINATE 
“RET IGN coke END OF STATEMENT 
RST DGN SP 
cP NL : 
rai Z, HOP 71F NEWLINE: PRESENT 
Li sie a : 
AP Z,1.34 7I1F ANOTHER STATENEnY ON LINE 
LE?28 JF SYNER 
TEMACT= TENELATE EVALUATION ROWIT INES 


FE ENTERED WITH (SP) = NEXTEM, 
STLIRN FROM SYNTAX OR EXCUTE. 
= NEXT TYTE TM TEMPLATE : 
CT AAn) -> 1ST CHAR IN SOURCE TOBE MATCHED AGAINST 
; TEMPLATE EYTE. 
{TEMPLATE CODE - : - 
LEFB TEMO-$ A END. ANDR OF RUN-TIME SEMANTIC ROUTINE FOLLOWS 


NEFR TEM1-¢ He ee DESTINATION 
“PEFR TEMS-# 3; 2 EXPRESSION, TYPE AS PREY DEST“N, AT ENE OF LET 
DEFE TEM3-% 33 - ~ RUMERTEAL EXPRN OR END OF LINE, THEN AS 


ie epee oe tee er a ae, OO A 


SYNTAX CHECKING SYNTAX AL/23/ 198s TO PAGE 10 
Loc OBJ CODE M STMT SQURCE STATEMENT ; ASM SL 


67 DEFR TEna— $ § 4 ~ LETTER (FOL G SPACES NOT SE KIFPED 
og PEFR TEMS $5 ~ SPECIAL ACTION (ADDR OF ROUTINE FOLLOWS) 
7B 3 & + NUMERICAL EXYFRY 
SE § 7 - ATTRIBUTE CONTROL. RP ATEMENT 
ba > - Pebroug—irem ee Ng 2* NO.LEXPRN . NO. EXPRN 
3 > COACH IR ? H ¥* NO. » NO. 
S MEFB TE $10 - STRING EXPRESSION 
CF DEFB TEM11- $11 > SAVE/LOAD/VERIFY/MERGE 
ae a TEMS: SOPTIONAL NUMERICAL EXPRESSION, THEN AS CODE oO 
O1CS Cwxb02 ae CALL OPTNO - : 5 
O1CS BF TEMOs CF A SET 
ae TENS: UMP TO RO. ITINE, ADDRESS FOLLOWS (ENTER TEMS WITH NZ) 
Olly CA POP BC iLISCARL RET Pas TS NEXTEM 
OCA CAEL CALL 2, END? IF CODE O OR 
Olle EG EX DE, HL 
O1CE ZA7T4SC LO HL, (TLADDR) 
Olt 4E o LO, CHL) 
Oli 23 1 INC HL 
O13 46 2 LO B, (HL) 
o1n4 EB 3 EX De, HL 7 
O1bS cs 4 FUSH BC SENTER ROUTINE WITH RESULT GN CAL CUL ATOR STACK, 
O106 ce Fi RET § CARRY CLEAR wets HL=(CHADD), A = (HL) 
7 = TEMIs 2 I DESTINATION 
OLD7 re) CALL FING 
O1DA 7 LT1i: Lo (LYYAELAGK) 0 
GLE o AR Neubt 2 IF aogune OR CHECKING SYNTAX 
O1EO 4 SET UNFND, CLY+FLAGY- 
O1E4 ie JR NZ1LT14 v1F NOT. JARRAY 
eS ERRZ2 | RST ERK sERROR 2, VARIABLE NOT FOLIND 
OL1ES’ . RT ERRG 
Q1E7 4 DERE 1 
St 
O1ES & Lisa CALL Z,GET_E iI ARRAY 
OLER E Nit. (TY-Y+FLAGS) 
Q1EF ii é IF NUMBER 
ee ? . TO LEAVE (FLAGX) UNCHANGED IF CHECKING SYNTAX 
O1FS a) “19 
OLFS 1 “LIPS IF RUNNING 
Oies Z j 
O1FB 3 
OLEC 
OLFD 
OLFE LTIé: 
O22 
O2O 
. TEMZ: o ‘EXPRESSION, SANE TYPE a8 (MEST), ee ACTION LET 
C1 POP Bo sDOTSCARD RET ADI TO NEXTE 
CHOEOZ CALL TEMEX 
CHAGOL CALL END? : . 
Cy RET 370 ENDSTT, IF KRUNNING 
TEMZX: FPROCESS EXPRESSION AT (CHIADD), CHECK THAT ITS TYPE MATCHES 
phat oon ao $_., BIT NO OF (FLAGS), & CALL LET IF RUNNING. 
SASBSC Lt A» (FLAGS) ‘ 
ba LTZ223 PUSH AF ENTER HERE WITH REG’O TYFE IN BIT NO CF A 
LOO CALL EXFRN F . 
fle POP AF 
FOS601 LD 0, (1Y-Y4+FLAGS) 
AA xOR Oo SCHECK TYFE , 
E40 AND 1. SHL. NC poe 
JR NZ.SYNERR sIF WRONG TYPE 


2024 


aoa CHECKING | 


11/28/1982 700 PAGE 11 


oo SYNTAX 
Loc OBI CODE M STMT SOURCE STATEMENT AEM Sw? 


OZ1E CH7A 
O220 C2Z0000 x 
OZS3 Cy 


TEM4: 
x 
DYALIC: 
“HOt TEM: 
Ro PO7 
Om 
voy 
F1O 


Pil TEMG: 


cm ed 
CHaGod xX. #13 
FIBOL7 4 P14 
ca vA es 
x : “G16 . SYNERRS 
Q Vas Cr 
0243 ab YA7 
913 
Div TEM1Os 
O44 xX ) 
W247 & 
Oak 
rs 


TEM7s 


LaGaco: " xX 
Fi 

3A7 AS 
DAO 


WARNING-OhG TS 
: COFFE R 


rae WARN ING-ORG I 
= See (0) x 


RK 


BIT INTFT.O : 
Fo nda LET 3I1F REQ DO ASSIGNMENT 


RE FuRn AT RUN-TIME. THE LETTER IS IN (STRLEN) WITH BIT 6 


“GIF NOT A SINGLE CHARACTER IDENTIFIER 


wm i 
4 
= 
m 
Zz 
ai 


SSES 2 NUMERICAL EXPRESSIONS SEPARATED BY A COMMA, 
TERS WITH (CHADD) -> JUST BEFORE 17 EXFRN, RETURNS WITH 
(CHADD) -2> TERMINATOR GF NII. : 


LIKE DYADIC, BUT ENTER WITH (CHADD) -> START OF 187 EXPRN 


NUMERIC ‘AL EXPRESSION, READS IN EXPN & FLAGS SYNTAX ERROR 
IF A STRING. IF GK, HL = (CHADD) -> TERMINATOR = A. 


CALL EXFRN 
BIT NO. C1Y+tFLAGS-Y) ° 
ET NZ 


SERROR C, SYNTAX ERROR AT RUN TIME 


FPRIKE TENG, BUT WANTS STRING EXPRESSION. - 
CALL EXERM ; 
BIT NO, CIY-Y+FL AGS 


RET Z 
JRO SYNERR 
POOLOUR CET 


ele INTFT, C1Y-YAFLA 
RE > C1Y-Y4TVPLAG 


) STATEMENT. 
) 


r 
= 


CALL NR ATTS 
Por SWASTE RETURN TO NEXTEM 
[ph AS(T_ADDR) 
SUE O SSUD TEMP 44—-F GTO +1. AND. OF FH 
a i 1.E. A t= KEYWORD 
DEFY TEMP44-FOTOR+L 
AF im 
PALL. COLLIN 
END? 


y (MASK UF AATTR. eth ). AND. CMAS =ATTR:. Tt1)> 
LNOT. CCMASK P=ATTRP +i). AND. (nae E.. TeATTROT + 
LR IN ASSERTION (HAS B= ATTR_P+1). ANTI, (MASE_T= LATTR.. T+1) 


END 

it tikes CATTR.T) 

LI CATTRIF) HL 
HL, PUFLAG 


Lo 
Ch Aa (HL) 


weg ee pate 


SCH TMG 
ahhite Cbd COE 


a "641 


Fpebo286 


7 ; 
FOCBS7 EE 


oF 
CLOQOD 
LavF - 


M STMT SOURCE 


=< 


Pa 


GIRS LL LL LS 


942 
943 
44 


SUN 


KMissp55 


One OOHRS he 


TEMP. 


LTv4s 


ee: 
TEML1: 


OP TNO: 


STK_O: 


SYNTAX 11/23/1732 TCR FAGE 12 
STATEMENT AIM 3.9 
RLC 
XU ait 
AND {uid10108 
XOR (HL) 


te ne 
RE 


§ £€ COLCUR-ITEMN € 3, = \ 
sIF RUNNING, INITIALLY 
; FOREGROUND ¢= PE 
$ ML ELS 
Fi NVERSE VIDE & OV 
74 


3 LHS, (1Y-Y+TVFLAG) 
CALL R_ATTS 
tp HL,» MASKE_T i 
Lo @. (HL) | 
OR .NUT. (7. ‘SHL. FOREG) 
LO (HLA 
RES Bo cE, (1Y- Y+P_FLAG) 
Ree IGN 
ST IGNWEP 

. CALL JGROCOL 

JR TEMS 


+LEALS WITH SAVE, LOAD, VERIFY OR MERGE STATEMENT 


JP SLYM 
SET ONAL NUMERICAL. EXPRESSION, 
¢I1F CURRENT CHAR. CIN Ay NEITH ER N 
; ELSE, IF RUNNING, PLITS O ON © 
et SSMASHES B’C’DYE*. ‘ 
cP NL 
JR Z,STE_O | 
CP “38? 
JK ONZ, TEAl4 is ete avers af 
S1F RUNNING, FUTS O ON CALCULATOR 
7 SSMASHES B°C*D“E’. 
CALL_INTET? a | 
RET Z  31F CHECKING SYNTAX | 
RET CALCTR | 
RST CALCTR i 
DEF E CONST+0 
DEF GE QUIT 
RET 
ma = p 


$3 1% NO. EXFRN 
Aik TEMPORARY, COLOUR Base METE T 
RMANENT FOREC COUND CFOS SST BLY EOL OUR Wy 
s= TRANSPARENT (COLOUR S). 
REPRINTING SET TO CURRENT PERMANENT FLAGS. 


STACK. 


8 THER fe TEME$ 


* 


SYNTAX CHECKING SYNTAX 11/23/1982 TCO" PAGE 153 
- 


Loc Ob COLE M STMT SOURCE 21 aATEMENT . 1 ASM S.% 
#EECT 
3 ie te THAT FOLLOW ARE CENERALLY THE ac TIONS TO BE TAKEN _AT RUN 
i TIME PLATE CODES O & 3) ALTHOUGH THEY CAN ALSG INCLUDE THE SYNTAX CHECKING 
} CTENELATE COnE 5). THEY ARE ENTERED WITH HE = (CH ADD) -> AFTER THE STUF 
sMEALT WITH BY ag TEMPLATE FITTING, & A = (HL). 
r] ON THE STACK ARE ENTETT (cn TC) & THE RETURN FROM SYNTAX OR EXCUTE. 
Ay py ER ae PASSED THROUGH AT RUN TIME, SG FOR SYNTAX CHECK IT MUST BE Lost 
; + ©) (FPO), (SUBPRED = LINE & SUBLINE NCE. 
5 CHXTL IN) => ME BYTE OF NO. OF NEXT Cine (OR A_BYTE WHO ae Buea HAS GINE OF 
HITS 4 & 7_ SET, £0 THAT IT CANNOT BE THE MS BYTE OF A LINE N 
3 fenanin) ~> 1 BYTE AFTER THE TEMPLATE. 


1000 STOR: Rat Erna STOP? INTERRUPT PROGRAM 
Cy 


1O01 5 CALL ERROR 9, STOP EXECUTED, 
OZAG CF rc . RET EE 
O2A7 Oy ieee DERG 
rele pe . 
1004 COND + ACTION AFTER THEN IN TF STMT 
cl 1O0% POP Bi; SWASTE RETURN VIA ENDSTT ae 
CLQGGG X 10046 CALL INT# Cyaan . ; 
ZEOA 1007 vi sIF CHECKING SYNTAX 
1008 S 
os 1OQQOy 
1610 dap ete tee 
a 1011 SHL ¢-> CONDITION 
CHOOVO X 1012 a 
¥ DALBOL RK 1013 i FORGET THEN PART IF CONDITION YIELDED FALSE 
O2BS C3E100 R tals LCONSs $ ELSE PROCESS STMT FOLLOWING “THEN” 
; O1s 
7 . > FOR: re ey i HERE AFTER TO 
OZBB  FECD CF STEP __ eee 
taped Ki 2009 JK NZ LFOR! . $1F NO STEP FART 
: RET NXT 
E77 * RET NXTTs 
CDAAGZ iy CALL TEMS 
CUAGOL CALL END? 
1806 JROLFORLS 
CDAGOL LFORL: _ENE?_ | 
CALCTR | 
EF {cALCTR Wek cae: betel 
Al DEFE CONST +1 $1 = DEFAULT STEF 
33 DEF E Git aes ss ees 
LFOR IS: SHERE TF RUNNING. HAVE STEP GN TOP CF CALCTR STACK, THEN LIMIT, 
¢ THEN INITIAL VALUE, 
RT CALCTR 
EF ee) C ee ue 
io Yr 
OZ 
Oo. . 
+ a) 
5 FINTT. VAL. ON TOF, THEN STEP, THEN LIMIT. 
xX . 


7k: 

CBFE SE (HL) $ ENSURE NUMBER CONVERTED 

O10600 Lt Bo} NOS TZE+1 3 AND ALIGN ON BYTE AFTER VALUE 
oF ADL Hi. Bio 

OF, 1644 , RUC A 


SYNTAX CHECKING 


SYNTAX 1i/23/1952 700 PAGE 14 


hai Obs CODE M STMT SOURCE ETATENENT 


MMos 


2 
coe corns Th 


PM RRE DS 


Sf 


eet TINIEST 
Pb 

ar 

& 

Panty 

og 


edit 3 


= S hots 
he 
o 
Oe 
> 
a. 


ShoTE  tactsur, 


1080 


ba ae pee pee pant — 
ee 7 Pred anda 


Sipe SNS 


Se tant foe Qt fmch fms ei om fam sth eam fd: anes ents fmt nh Sth ts fut th fe fh Pe fds fi emt sf ft Get fee fe 
Tet DTT Dee eee teat cee Sian eet Ten Tent onan T at) 


SE06 1045 
OEOD 10446 
CLOGGG X 1047 
23 104% 
ES 1049 


Pushy 


i 


LFORZ: 


LFORS3: © 


LFORS: 


ERRIs 


SKIPS 


LOC; SeNusT 
ALL INSERT 
ML 


DE ,t 
tb Te 2 NOS ZE 
a HL, (FFC) 
EX DE, HL 
LB. ote 
Lb (HL), 


ae Baly Y+SUBPFC) 


ZO TT oe 
= 
tae 
~ 

bea 
he “on! 
irs 


sHERE TO 


_= 


LA 
His (CHALE) 
ye MEX TOE, 


BE 
Be 2 NXTLIN) 
TMATLIN) 5 BC 


ay a me: 
erate 


SISmommem Pipe Zz 
t 
7 m 
= 
affie. a 


SICocaccreccer 
ier 


WST ae 
JR LE ORS 


RST NXVUTS 
RST NXTLIS 
LD OA h 1 
SUE Dy 
LO (NSFPO)A 
RET 


. ERROR 
RST ERROR 
DEFE 17 

7S 
3H 
3 _ 
3 


NL), 


Y-Y tS TRLEN 


SM Ss. o 


i IF ALREADY A FOR BLOCK 
fi Fe ZYNOSIZE +S 


* 
f 

=. 
“ 


SBC t= SHeNOSIZE 
ASSIGN NEW STEP & LIMIT 


SIF LIMIT NOT EXCEEDED 
"FI NOE CORRESPONDING NEXT 
) 3 s= NANE OF FOR VARIABLE 


s1F NG NEXT FOUND 


ICONVERT TO LOWER CASE 
s1F NEXT & FOUND 


TERROR 1. FOR WITH NG NEXT 


IF TO E-STATENENT GFTER (CHL) 
Lo -> STATEMENT TERMINATOR (ANYTHING OTHER THAN “3° COUNTS AS 


n= - SUBL. TNE NO. OF STATEMENT TERMINATED AT (HL) 


SYNTAX CHECKING SYNTAX 11/23/1982 700 PAGE 15 
Lo OH CODE M STMT SOURCE STATEMENT . ASM 29 
1104 3E = PORE OF PE SCWIGHT 
1105 3 (Ch one HL ?-> KEYWORT) OF 1ST E-STATEMENT AFTER 
1104 31F FP ASSES: THROUGH BEGINNING OF LINE, Ha aad (NEWFPC) t= LINE No. 
1107 $ & BC 3-2 NEXT LINEs ELSE FRESERVES BC e 
1103 iD t= -SUBLINE NO. OF E-STATEM MENT 
110% SRETURNS IF NO E-STATEMENT FOUND 
: 1110 SPRESERVES E 
7E_ 4iil Lo Ay (HL) 
FESA itz CP vte nie 2 ie 
2318 1113 J 2 LSS SUNLESS AT BEGINNING OF LINE 
23 1114 LSP2: INC HL : 
7E. 1115 tO Ay (HL) 
E6lo 1114 AND OCOH 
37 1117 SCF 
CoO 1118 RET_N sIF NO E-STATEMENT FOUND 
46 fii? LIB (HL) ‘ 
23 ay) ING Hi if 
4e _ ig. Li c, (rll) : 
ED4S4250 11g Li (NEWFPC), BC s+ (NEWPPC) ¢= NO. OF LINE BEING LOOKED 
23 23 : + 
4E 1134 
23 1125 > 
44 1124 
ES 1127 
oP 11 
44 1127 
4b 1150 
E1 1121 
1400 A132 
cs 1133 LSPs: 
CHAO? X 1134 
rie | 1135 
fio 1136 
1SEO 1137 
11:35 
113% NEXTs SFROCESS NEXT STATEMENT 
1140 . (tY- VEELAGK) 2 
i Z NOT FOUND 
1143 BIT 7, (UL) ee : 
1144 Jk Z,ERR 3 IF NOV CONTROL VARIABLE OF FOR Lor 
1145 INC HL, $ ELISE HL 3-> VALUE 
1144 Lo HEM) si 
; 1147 cat CALC 
EF Cal 
EC 11 ME any +0 3 VALUE 
E2 a | B MEMORY+2 = $ STEP 
OF 1 {Abb 
to i 5 C ao sFOR VARIABLE INCREMENTED 
Oe 
3 1 DEF E ETT 
C Kol eet -L ONXTICHE 
if 1 C 31F LIMIT EXCEEDED 
2 1 i Hi.» (MEN) : 
1 i OE  AeNUES I ZE e : 
1: 1 . ADM HL» Te sHL s-> LINE # FOR LOOPING 
: 1 LD &» (HL) ’ 
P 1 HL. : 
i LL 0, (HL) 
i TNC HL 
1 LO i. (HL) 
1 EX KE, HL 
RK : Je LUF4 


SYNTAX CHECKING | ee SYNTAX 11/23/1982 700 PAGE 14 
Luc 6 OJ CODE M STMT SOURCE STATEMENT ASM 5.9 
aan “2167 ERR: RST ERROR ;CALL ERROR 1. VARIABLE NOT FOR VARIABLE. 

0370 CF . RET ERROR 

OsF1 ao ates : HEFE @ 

S 
1470  NXTCHK: iON ENTRY (MEH) -> 157 BYTE OF VALUE OF FOR VARIABLE. 
1171 RETURNS © IF LIMIT exe eeten. NC IF NOT. 
4172 RST CALCTR 
- ae RST CALCTR 
1173 (TER EC MEMORY +1 sLIMIT 
1174. ; DEFB MEMORY +0 ~ SVALUE 
4175 DEFE MEMC yrs 2 oF STEP 
1174 =F BOM HL 
1177 sIF STEP <a 
1173 : 
. 117% 
1150 LNKZ: 
1131 . 
{lee SIF LIMIT EXCEEDED 
113 
1134 ; 
“fj Li os 
11834 
1187 
1165 LNKSs 
1ligy 
1190 
tivi 
W192 LAOS: 
1173 READ: i : 
RK 1154 C iGET DESTINATION 
X 1195 cA ie 
1136 JR Z) SIF CHECKING SYNTAX 
1177 Ret i : 
Lips Lo «x SSAVE (CHADD) IN MOVABLE VARIABLE 
Livy Lo HL 
1200 LOA, 
1201 Py 2 
1a08 oR zt + IF NO SEARCH NECESSARY 
1204 CAL : 
1205. NR 31F NORE DATA FouNr 
1204 : 7ERROR E, GUT GF DATA 
1 
Chao xX 1 LROS: 
Choe RK 12 
if 
1: ! 
1 7 (XL P TR) HL t= OLE (CHADD) 
F frye Pedy i Ptr ih iy) 
1: LARD : 
1: 
i: SIF MORE VARIABLES TO READ 
i INE NOT JF END? ; 
i ae 
RF = i DATA: 
o30F CHOOOO xX 1 CALL INTPT? 


ia 


SYNTAX CHECKING 
Lo 


Gac v4 


o4o7 


Oh CODE MS 


Cus 04 r 
73 

Bl 

2004 

EDIE 7ESC 
EN437650 
3 


4 


RESTEC: . 


RANTS 


LRANDINZ 5 


CONT s 


ALIN & 


LUras 


uy s 


PORE s 


"SYNTAX. 11/23/1982_1C0 FAGE 17 
J SQURCE STATEMENT ASM 5.9 
JRONZ,LOAS = +1F EXECUTING 
Lpaze CALL EXPRN : 
ot 
FALL. NZ»END? :IF MOT A COMMA - WON’T RETURN t 
RST NXT-1S 
Rest NXT_13 
JR LDA 
LDAS: LD ADATATK 
LEASZ: FHERE 1G SkIr STATEMENT AT RUN-TINE. 


$A = KEYWORD (DATA OR DEF) 
sHL -> CHAR AFTER eae 
LT BA SASSUME DON'T HAVE 32000 SPACES AFTER KEYWORD 


ae 
2 eden 

Le SUELN 
SRESTORE CLINE NO. 
3NB FOR RESTORE O to WORK, THE BYTE BEFORE THE BASIC FROGRAM * 
3 MUST NOT CONTAIN THE CODE FOR ~“,° (20H). WE HAVE ARRANGED 
3 FOR IY TO BE SOH. : 

CALL FIX . 
RESTORE BC 

; SFRESERVES BC 

LO HB 

LU LC 

CALL FING_L 

DEC HL 

LO CDATADIO) » HL 

RET 

“ SRANDOMISE CNJ: SET SEED FOR RANTWIM NUMBER GENERATOR 

CALL FIX. 

LU Ay 

OR 


a NZ. LAAN 
tn BC, (FRAMES) os1F SEED ZERO OR NOT SPECIFIED 
Lh (SEED), BE 


RET 
2 i See JUMP TO FLACE WHERE LAST INTERRUPTED 
LHL, COL DPR) 
Lt [i CLY-YAGrPRC) 
JR LFA 


CO TOONS ALS USED FOR RUN & Gt SUE 


CAL. ‘ 
to + 
La 
ne ;FOR A VAGUE JUMP 
ui ; 
i ae geeH WHY B40? Hite 
a) ; 
Lit I)» SHERE TO SUMP ya STATEMENT NO. IN HL DB 
1.0 tive YN PPE) Db 
KET “oN 
SOUT ADDR, BYTE 
CALL GET.AB 
OUT (CA 
RET 
i FPOKE ADDR, BYTE 


ah ee” 


J 


marl 


or] 


Ogee 


O47 


Q4 ees 


045% 7 


Abd COE 


Chsha4 
OS 
cy 


Coe ereya) 
at 


S19 
"ee! os 


i 803 


OC 


Muh 

or 
a o 
me 


as 
aT 


= 


COLFO4 
O1LO000 
COF OOS 
1803 


CuS104 


20 a4 


K 


Pat fee beh fe Ge ts th th ote te fe em fie fom fps ft 


STMT 


‘fens tn ae: fn rate fats th Heads Se fm ois saa fms: 


ne 


~ 
o 


NOs 


(Paste Qs pte Peet Gets fone Ge ts fm: fon: te 
1 Sich et st 


SYNTAX 11/23/1982_T PAGE 15 
SOURCE STATEMENT ASM 5.9 
: 3 FLAGS ERROR B OIF bes ae 23 256 GR THE ADDRESS 135 NOT IN 
_..' THE RANGE O To Zawd 
CALL. GET_AB c 
LO (BC)LA 
ET 
GET_AB: SGCET ANDRESS, BYTE 
} SUBROGEANS OF POKE & OUT TO GET ADDRESS & BYTE OFF CALCTR 
1A a= ep iia VALUE GF BYTE Milas IF >= 256 IN ABSOLUTE VALUE). 
SBC s= ADDRESS (ABORT IF -VE OR >= 2” 14). : 
CALL EPZA F . 
JK C+ ERRG HIF \YALUEN bs 254 
JK Z.LPORS iF VALUE 2= © ; 
ene NEG 
LFOKSs cier f : 
CALL Ptxu 
POP AF 
KET ; . 
FIX.uL: SFIX I-BYTE UNE TONED NO. FROM CALCTR STACK . 
a RESULT IN A, ABCRTS ERROR & IF TGESN?T FIT. 
CALL FRSA : 
JR LEU 
FIX_us sFIX UNSIGNEN 2-BYTE # en CALCTR STAC 
; 3 RESULT IN ie ABORTS WITH ERROR & IF boeESN- T FIT. 
: CALL FREBC 
LEU: eR CpERRB 
ERRB: RST ERROR TERROR EL NUMBER GUT OF RANGE 
RST ERROR : 
DEFB 10 
RUN: s RUN CNJ: DELETE ALL VARIABLES AND GO TON 
CALL. JUMP 
Lo BC : 
CLEAR: J DELETE st ee THEN CLEAR SCREEN, & GOSUB & we STACKS. 
iat ats THAT THER aan OEREABY TWO ITEMS GN he M/C STACK; & 
3 2 i“ eo im cee 
ISETS UP THE CLEAR STACK AT ee BUT ABORTS FIRST IF NO 
; ROOM FOR ARCHIT at (19 AS IN CHESZ + 4 FOR LUCK) 
3 STACK ITEMS BE TWEE EN (3TKEND) & (CRAMTOP), 
CALL FIX ou 
CLR_BCs iCLEAR Bt 
LO AVE ‘ 
oF : 
AR NZ LOR $1F BO ch Oo 2 > 
ae Lp Be) (RAMTOP) 31F BC = ,0 THEN PRESERVE (RAMTOP) 
LORS: PUSH BC 


LE DE, (vanes) 
aa Bat (CELINE) 


$HL ¢-> GOH AY END OF VARTABLES 
;HELETE VAR TABLES 


iDE t= NEW CRAMTOF) 


SBC HL GE 
AR NC, ERR SIF THERE §S NO ROOM BELOW 
LO HL, (PLRAMT) 


SYNTAX CHECKING 
Loc 


0457 


O4bA 


¢ pare 


OAT 


OBI Cone 


NSE ICA SS ee Pe 


E 
i 
C 
F 
c 
E 
E 
E 


OOOO 
“LEO4 


CPS 
DE ie 


SYNTAX 11/23/17382_TCL PAGE 19 


LIOR4:s 


GO LSUBs 


CHEZ 3 


ERR4: 


CHEUSR s 


RETURN: 


SOURCE STATEMENT ASM 5.9 
ANG A 
: SEC fils DE 
UR_NDSLER4 3IF ROOM ABOVE 
ERRM: RET ERROR sERROR M, (RAMTOF) GUT OF RANGE 


re OR 
DEFER “N’-“A‘% +9 


EX DE, sHL ¢= NEW (CRAMTOFP) 
(0 (RAMTOR) 5 HL : 
POF LE 
POP BC te % 
ae hy », SEH SNULL GOSUE RETURN 
Lo: 
Pu: He 
Lo ¢ 
EX DE, Hl. nest: nae a % 
JF (HL) SRETURN FROM CLEAR 
eg ” evn. 60 TON, LEAVING GOSUB BLOCK GN M/G STACK FOR 
x IF 
FA GOSUN BLOCK HAS THREE BYTES: THE TOP CON THE STACK, I.E. 
$ “THAT WITH LOWEST ADDRESS) IS THE LS BYTE OF THE LINE NO., 
7 THE NEXT IS THE MS BYTE, & THE SRD IS i + OTHE SUBLINE NG, 
POP DE iDE t= ENDSTT : : 


ae at (1Y-Y+ SUEPPC ) ; - 
Bey tM #HL 2 = RETURN FROM EXCUTE 


LD OBC, (PPC) 
ran SH Eu 


PUSH HL ; 
LD (ERR_SP) SP 
PUSH DE : 
CALL JLIM 
LD BC, 20 TALLOW SPAC ‘-E FOR A CALCTR STACK ENTRY 
+ “SPHEC K THERE TS RO FoR BC EXTRA BYTES OF DATA 
i ASSUMES 41 STACK EMS JNCLUOING CWN RET. ADDR ark. ICE 
3 PRESERVES ABC. CALLS ERROR 4 IF NG ROOM, 
3 mY x CE, 
STF NG ROOM WHEN CHECKING SYNTAX, CLEARS SCREEN & TRIES AGAIN 
LO HI, (2 OTK. ENTS) 
ALK HL L.» Ec: ro a 7 Hans 2 
IR ERR s1F BC MILES TOO BIG 
EX OE He - 
3 “= 


ce OSP NOT < GE+s 
RVES ABCDE, 


RK 5 IF OK 
LD 1,3 sERROR 4, NO ROOM 


SBC t= AMOUNT GF RAM LEFT 


3 RETURN: FICK _UP MOST RECENT EXTANT GOSUB BLOCK & JUMP 
POP BC 3B t= ENDSTT 


oe CHECKIN : SYNTAX ; LI/ 23/1982 700 FAGE 20 
Lis Git CONE M STMT SOURCE STATEPIENT AEM 5.9 


Orr) fs 14123 FOP HL fHL #5 RETURN ADDRESS FROM EXCUTE 
eye) e) 1414 POP DE ;BE s= LINE NO. OF GOSUR RETURN 
O4THE 1415 i] : H 
eae 1414 : 
et eae SIF THIS 15 THE TERMINATOR BLACK 
3 ME: 
141% EX ae $H t= SUEBLINE NO. OF GOSUB RETURN 
1420 EX feu 
1421 Lo (ERS SP). SF . tt, 
1422 PUSH BC 
ast JP LP 
1 LRETZ5 PUSH DE 3 REFLACE TREN INA TOR Eck 
142 4_ Hb. SABORT RK = 
14: ERROR s ERROR e RETURN WITHOUT GosuB 
OFFO CF A RST ERROR 
O4F’ 6 142 4 
1 PAUSE s sRUN TIME ACTION FOR PAUSE ¢ STATEMENT, i 
1 sLET N = TOP GF STACK, ROWNGED Ta A A 2-BYTE UNSIGNED INTEGER. 
1 sWAIT i N FRAMES, GR, IF N= G, WAITS FOREVER. 
: 1 a SIN EITHER CASE, STOPS WAITING ve A KEY 1S PRESSED 
e Ki ; é CALL FIX 
: LFEZ: HALT. STILL NEXT FRAME INTERRUET 
1 FY : 
1 Bee er ees 
i ALPES 31F COUNTED GUT 
1 AME . 
1 Ite A 
1 ¢ NZ, LFES SUNLESS BC WAS DECREMENTED FROM o. Alle FFFFH 
1 = ING -Br; 3 IM WHICH CASE RESTORE IT Tho 
1 LPES: SEYHIT, C1Y- VAFL AGS) 
1 JR Z,LPE2 CARRY ON WAITING UNLESS KEY PRESSED 
LFESs RE: KEVHTJ. (1Y~ Y+FLAGS) 
i : 
i BREAK?! SRERE Spee REY (CAPS SHIFT & SPACE), RETURNING NC IF IT 1S 
? 
i jor nee 5 ‘ACE KEY 1S KEY O IN ROW 7, & CAPS SHIFT IS KEY © IN 
3 OW 0. 
1 LO A» 7FH 7FOR ROW 7 
i IN Ay (KBLFT) , 
1 RRA das : ee 
1 RET ¢ 31F SPACE KEY NOT PRESSED 
1 as AL OFEH . 
1é NA, CEB. PT) sREAD CAPS SHIFT 
1440 ANA 
He mt 
he DEF: ad EN EXPAN C4 9 ( € LETTER C # 39 C€ ,. LETTER € @ 33%] ) 
1445 $ WHEN . SYNTAX GF THIS 1S CHECKED, A SLI (SLUG + & BVT 
1444 3 NSERTED IMMEDIATELY AFTER EACH FORMAL PARAMETER! EFAs 
1447 3 HiLe HOLD THE AatTuAL EOE TESS WHEN THE FUNCTION TS 
1445 ; : CALLED. 
O81S CHOOdO X 1449 CALL INTET? 
OS1B 2505 1470 JAR Z»LOF2 $e . 
; 1471 : THERE TO SKIP COVER THE DEF STATEMENT AT RUN-TIME 
O81 BER 1472 Lo A, DEF_TK 
OSAF ~R 1473 JP LOASZ 
1474 
1475 


an 


LOF 2: _ HERE TO CHECK SYNTAX OF DEF, SLUGGING FORMAL PARAMETERS 


oad 


O3545 E7 

- O546 FEZ4 
543 2002 
aS4A EB 
O34B E7 


sac EL 


F : 
Coo 


Fi. 
FDAEOL 
E440 
C24202 
CUAGOL 


=z 


Ce el ed el dl aed coed oul oe cel cel gel el cel nel el a oe a ch ce cee ee 
art " i me oe mr 


= 
= 


SOURCE 


bps = 
NINNN 


Votan 


LOF25: 


pe) 


N FOS hed QUE 


igi: 


fbb HDSSS 


i 
on 


LOF= 


Sphoop 


LDF 323 


Pith Dy 


Benen 


pe ee as 
CoN 


LIFSSs 


eee! 


face 


a ay Oa a el onl oe 
AGEN BSS HS 


LDF Ss 


LDFGés 


: LE CHE) 2 UG 
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SYNTAX 1 
STATEMENT ASM 5.9 


SET NG, (I 
CALL ALFH 
JR NOLO 


-Y+FLAGS) 
+(WHENCE TO SYNERR) IF NOT LETTER 


mtd 


wD + 
bo 


} ae NUMERIC FUNCTION 


ih 


=Y+FLAG 


ora s) 


AAI OF 
TEA DT DT AIG 


a4 


san 
NN . 
«~ZZ2N“ 


Z2Zz 
ADE OT 


WHENCE TO haa 


Loma 


a 


FSS ,1F_ NG FOR MAL PARAMETERS 

3s HERE WHEN EXPECTING A FORMAL (PARAMETER AT CURRENT CHAR ' 
sHL = (CHADD), A = (HL) 

CALL AL PHP 


C K 
DE HL sD &-> ‘LETTER 


~~ 
iH 


JR NZ, LDFSS 31F NUMERIC PARAMETER 
EX DE.HL DE t-> “Gr. 
RET NXT_TS 
RET NXTLIS_ 
3HERE WHE nm he ie FARAMETER FOLNI. 
3 (CHADD) NEXT CHAR, YALUE IN A - SHOULD BE “,”’ OR “)”%. 
ee he: Ps -> BYTE. AR TER WHICH SLUG IS TO BE INSERTED. 
L} 


E 
LE ike et ahd 5BC t= NO. BYTES IN SLUG 


NC 
INC 


3A STILL = CHAR AFTER PARAMETER 
Play NZ: LDF 


3FOR NEXT FARAMETER 
HERE WHEN FORMAL FARAMETERS ALL CHECKED, 


ae A = CURRENT CHAR = TERMINATOR (SHOULD BE “)*). 
NZ, LDFS SWHENCE TO SYNERR 
T NXTATS : 
UNXTZIS 
ase . sSWHENCE TO SYNERR 
NAT. Lat ae PEN ne 
fir ARLE SNOW BIT NOCOF A SHOWS TYPE 
AF ‘ 


POF AF 

XOR CTY-YIFLAGS) 

AND 1.5HL NG” 
JAP NZ, SYNERR i] Y 
CALL END? i WON? T 


END 


& OF EXPRESSION WRONG 
RETUR URN 


FRINT STATEMENT | 
Loc OBJ CODE M STMT 


}- 


oad 
Oona CHoooa x 
OOO El 
i) ee 
OOS EY 


QOOd& SEOQR 
CODES 1602 


i 
v4 
3 
4 
B 
Z 
& 
a 


QO0R E02 41 
Ooor ’ xX 41 
QOOF X 41 
Qole En c xX 41 
OoO1S EOICOO R 41 
OOS - CHOGGO xX 41 
OO1B cP 41 
41 
41 
420 
421 
4 
4a 
4Za4 
OO : 
(294 Od oh R 
at 4 
RK ri 
4 
RK 4 
R 4 
4 
4. 
4 
4 
R a 
43 
AS 


SABE HES 


_ SYNTHO 11/23/1982_TC0: PAGE 1 
SOURCE STATEMENT ASM 5.9 
HEADING PRINT STATEMENT 
*LIST ¢ eee sty — a ; 
BLORAL KLPRsK-PRIN, DORRER, COLITM, INPUT, GR_COL v. 
GLOBAL ERRH, T¥_COL, STRITO, NOTKE?, TERM? 
EXTERNAL SETCUR, PR TVZ,RATTS $101 
EXTERNAL —— ERRS. Ci LH VFL. ?, ATTEYT 
EXTERNAL EDIT KS BCH, ri 110.2 
EXTERNAL X_CALC, SELECT TERRG sERiT 
EXTERNAL END, TEMS, SYNERR, ERRE i SYNTAX 
EXTERNA FEX-U, TEML L122) FT x_u1 DYADIC i ‘ 
EXTERNAL 5 GRAPHS 
EXTERNAL EXPAN, INTET? sEXPRN 
EXTERNAL PORSTR, ALPHA?, FSHSTR, LET 3 IDENT 
~ EXTERNAL OUTPUT, FP2A,STK_A sINGUT 
SET_SFs FEXIT CALLER TF BIT INTET OF FLAGS IS CLEAR 
ee iPRESERVES ABCDE & CARRY 
CALL INTPT? 
FOP HL 
EY Z 3NO ACTION IF GNLY CHECKING SYNTAX ’ 
IP CHL) ; 
KOLPRE sLERINT STATEMENT 
LD A LFROST on 
all KPS . ‘ 
KOPRING “sPRINT STATEMENT 
: LO ALPRST 
LEP2: CALL INTET? 
GALL NZ, SELECT 
CALL R_ATTS ; 
CALL POSEG 
CALL END? 
RET 
P_SEGs SINT SEQUENCE AT (CHADD) 
INT-SEGUENCE t= : a2: 
CC PRINT-ITEM 3 FRINT-SEFARATOR 4* © PRENT-ITEM 
1S OCCURS EITHER FOLLOWING “PRINT. IN A PRINT STATEMENT, OR 
WITHIN BRACKETS AS INPUT ITEM. 
; SIF SEQUENCE EMPTY 
LPG: 3 € PRINT-SEPARATOR 14 
$ PRINT-ITEM PRINT-SEPARATOR \ FRINT-ITEM 
LPG4s 
SDONST WRITE NL IF TERMINATED BY KET 
WRNL 3 RITE NEWAING ‘TO SEREEN 
PLITEM: DEAL WITH PRINT ITEM AT (CHANT) 


PRINT~LTEM 
AT NOEXPRN (NG. EXPRN \ 
TAR NG. EXERN 


3 
3 
3 
3 


PRINT $TATENENT : SYNTH LA/BS 1S 


2. Tor FAGE ? 
Lut ORI CODE M STMT SGURCE STATEMENT AS o 


a) 
(e wr a 
cab 
047 
Par: od 


i 


rary 2) LPM: 
Oued 


Ova EZ ' 
hen tiene 


* 


PRES 
Soihe: 


LEMOS 


no 


SLIME WO. OR LS BYTE OF TAD STOP 


4 
4 
4 
4 
4 
4 
4 
4 
4 


co. NO. OR MS RYTE OF TAR STOP 


4h 
479 
471 LENS: SHERE WE TRET FOR A COLOUR ITEM. 
O061 ° CHZFO2 RK 472 CALA -COLITO vd 
ad 473 RET NC s1f WAS COLOUR TTEM 
474 TALL STRITO 7 . 
475 RET NC SIF WAS STREAM ITEM 
A7G ; CALL EXPRN ah a ec ee ae 
456 PRINT? oe RELULT CF EXPRESS TON ON Se 
478 cA SE np 
AVF ELT res ULV AELAGE ee RESULT OF EXPRN 
piers) CALL 2, PORSTR STRING a 


JF Nz. CUT PUT 
si 


any 
LFT2: Lh a “OUTPUT STRING: BO BYTES STARTING AT (DE) 
C . 


S27 MOMED LEFT 


BEM 
ne LPT os 
KETTER? _ ) SLIKE TEEM?, BUT RETURMS Z FOR FET ()) A® WELL 
a tal . : : 
RET Z 
IF A TS NL Oh “ee 
ARO TEL : 


TERM: 


PLSEF? SIF CURPERT CHARACTER MOT A_FRINT SEPARATOR (* “3° OR “> 
H RETURNS NZ WITH HL = (CHADD), A = (HL). 


PRINT STATEMENT — 
Lowe 


Oo7vB 
GOVE: 


OOvE 
OOO 
oval 


ie) rey) 4 
OOAS 
OORS 
OOAA 
OoOAB 
OOAK 


OvAn 
ODAF 
OURO 


po 4 


a) & 
Owes 


E 
A 


HOO 
CHOW 


QE OOK .M 


17. 

bese, 

a 

COS 200. 

E7 “ 
CHSZ00 
zoe 1 


Br 
cy 


met 
NEN CAI 


STMT 


URN oOSE 


CRORCACR 


on 
‘J 


CU 


a) 
1 
1 
1 
1 
1 
1 
1 
1 


oY 
SOURCE ST 


LPF 


LFFS: 


LPO: 


STRITOS 


NTWwo 
ATEMENT 


ro 
bo a 

RET NZ 
RET NXTTS 
RST NXT_UES 
CALL TEMé 
AML A 
CALL SETUWSP 
PALL FOX U1 
re oe 

JP NC) ERRG 
CALL SELEC 
AND A 

RET 


LA/S3/1F52_7CR PAGE 3 
2 


ASM 3.4 
SEPARATOR, DEALS WI TH IT & CHECKS FOR END GF FRINT 
A SEQUENE ‘RO ANL, “8% OR 7)? ‘ IF END, RETURNS Boe CALLERS 
¢ 


ETURNS PROPERLY WITH Z. IN EITHER & 
(CHADD) :-> CHAR AFTER SEPARATORS A t= (HL). 


IMMA 


SUNLESS CC 
SIF NOT A SEPARATOR 

WF ° 

HWINLESS END OF SEQUENCE 

TH SET Z ry 


AM ITEM, a NG. EXPRN ahs 

SSeS A STREAM TreH IF THERE IS CINE, AT (CH_ADD). 

R WITH A = CURRENT CHARACTER. - hips 

IRNG NG & MOVES (CH ALL) PAST STREAM NG. IF STREAM ITEM, 
RETURNS © & PRESERVES EVERYTHING. EXCEPT EIe NOT 


\ 
“-$IF NOT STREAM ITEM 


{ 
{ 


SIF STREAM NO. B= 14 


(HPUY SVATEMENT 


Luc Ok CODE M STMT SOURCE STATEMENT 


Ou) 
OLS 
aon? 
Quy 


«Ma eK 


wiped 
dak 1 
Oe 4 
vob i 
Ourk 


> 
2 
— 


; é aan ay . is ESSEN 
RA erat TTEM (FOR PRINTING) OR A VARIABLE. (POR 


1! ALPEADY A BARTICULAR KIND re FRINT 


fy A -VARTORL E 

ay rar fou ‘SYNTACTIC LE. 
FEGTAMING WITH A LETTER TS A VARIABLE TO BE 
TORE THE FULL 
SORT CF INET, uD CONSISTING OF. A PRINT 
_IN Coe RAMI 


MIE 
AN ar tee 
THIS 


ane 


EDT T_€ 
C11) UHILE THE INPUT 
Va A INTO 
VARTABLE Ox, 


aay *EMEET FOR IlsINe INPUT» 
OR i NT COMP 


~ 
— 
< 
~~ 


40 SD 0 SO oe AE UE Ore UF we OE Ee HE aE OO ee ED EE ee wD ED wR UE we UE Se VO we we ee we 


85 LOWER alr HAS 
THE ’ 


Lm Sm errr roar r oer ame cs 
a By phe d aed ed wu | mer bests ‘ 
ao Aart : 


éf 


WITH JMPUT SPE OUENC £ 
MRE “UT ITEM TS A VARIABLE, 
how GRACKETS, 


we 


PRORE ERO RO 


SEPARA Togs IN 
SSENTIALLY 


OM IR NUT 


AMBIGUITY WE MARE THE RULE 
GENERALITY OF PRINT ITEMS, WE 


FOL LCWE TY BY A 6 STRING VARIABLE. 


“INPUT THE INFUT LINE IS TREATED AS 
‘MINATETH EY NL. (CNL “a 
| NETL Eliane 2 ee 


> 

WT STATE : INES. 
Ba Een BIT TNELN OF (FLAGX) 
“TING READ, a) 
STATEMENT) TS 
IN CASE THE INPUT et 

SMG & GETS haven UP BY THE SETTING ie OE A NEW 


THE TTA IS TERMINATED BY NL, 
we CONTROL. EDITOR LOOKS AFTER 
ips e LINEN OF CELAGX). 

a WiTH TE CIMMAND LINE, IN et DATA “3° NEVER 
LISycH MEALS WITH THIS 


SET Le THE LOWER HALF 
nt "THE ase ‘KGROUNE COLOUR]. - 


2), RUT AT (WORKS 
NTS IN COMMAND LINE 


) 

THE cb (CH ALL) 

SAVED IN THE 
STATEMENT 15 


ae ue SCREEN BY CLEARING IT 


E SHOULD ALREADY HAVE 


SMALLOGWED WFFER HALF PRINT POSN 
BEGINNING OF LOWER HALF 


A FRINT SEQUENCE ENCLOSED IN 
oR ANY PRINT ITEM OTHER THAN AN 


INFUT STATEMENT 


TATEMEN _ SYNTH 11/23/1982 TCC PAGE = 5 - 
Lot ObJ CODE M SINT SOURCE ST 


ATEMENT vs ASM 5.9 


410 
QOFE R 611 Lites CALL P 
O1O4 &12 JR Zeb 
O1o03 413 CF “(¢ 
O105 614 JK NZ, 
: ai 415 RST NX 
0107 Fae RET NXT. 
0108 © CHICOd R 614 CALL F 
; ; &17 RET IG 
OLOR DF 7 RST 1¢ 
Q10G FED 61S Ce“)? 
OWE = CZ0000 X 419 JF ONZ2¢ 
ee 420 RET NX 
Oli. E7 __. i oes i RST NX 
Oll2 C3EFO1 RK $2 JP LTG 
O115 FECA LItr3: CE LINETE | 
O1L7 2011 Ws N21 Daa 
: ee | SHERE FOR LINE STRING VARIABLE 
424 RST NXTLIUS 
RST NXT_IS ‘ 
x CALL TEM : 
SET LIMFLN: C1Y-Y+FLAGX) 
BIT NO, (1Y-Y+FLAGS ) 
X IP ONZ, SYNERK SIF NUMERIC VARIABLE 
AR LIGS4 
X LIQ32s CALL ALFHA? = 
RK JP ONC LTE SUNLESS VARIABLE 
_ xX CALL TEM1 
RES LINPLN, (LY-Y+FLAGX) . 
coe X ¢ LIns4: CALL INTFT? 3 : 
CAEFOL RK & JE Zab Lit7 sIF CHECKING SYNTAX 
COHOOOO X & CALL X.CALC 
217150 640 LD HL, FLAGX 
CHES 464i RES NG, (Hk) 
CREE 442 “SET INPUN, (HL) r ; 
010100 643 LD BC, 1 ; SET BC TO # CHARS IN INITIAL LINE, VIZ 1 (NL) 
CB7E 444 BIT CINPLN, (HL) 
20068 | bas JR NZ LIG33 
SASBSC 444 LD A, (FLAGS) : 
E440 447 AND 1.SHL.NG ee fa 3 
ie ve WE aL TQ36 5 FOR NUMBER, 3 (QUOTES TOG) FOR STRING 
AP 1)! 
650 Ligases OR Chi) ‘ 
651 * LO (HLDA 3 COPY TYFE OF (DEST) INTO REGU TYPE FOR I/7P 
“452 L333 Hed Caotue 5 MARE ROOM FOR INITIAL INPUT LINE 
el Lik 
1S ae rp ie das + DE ~-> 1ST BYTE, HL -> LAST: WRITE E.G.L. 
ioe cee Ad Paes 
5 655 RRCA 
“i 434 RRA - 7 
: 65:7 AR ONC, L164 $s IF NUMERIC. 
ts 4 LO A, auioTe 
h 655 LD (fE),A 
4 40 DEC HL . 
& 641 LD (HL) 1A 
4 442 LIQ4: Lo (BCU) 
é 663 GIT LINPLN, (Y= -Y+FLAGX) 
4 Lh4 - UR ONZ,LIGa 
SF 645 LE HL, CCH Mend) 
72 hhh PUSH HL sSAVE (CHL ADD) FOINTING INTO STATEMENT 
73 467 LO Ce eee? 
74 &455 PLUSH SAVE GLO (CERRLSP) 


INFUT STATEMENT SYNTWO LL/23/1932 700 FAGE 


4 
Lat “OB CODE MM STMT SOURCE STATEMENT ASM 5.9 


669 LIG43t NOW THE INPUT BUFFER IS PROPERLY SET UP AT (WORKSP), WITH 
470 _BIT INPLN OF (FLAGX) SET & (CURD CORRECT. 
ee £71 ; TACK HAS SAVED VALUES OF (ERR.SP) (GN TOP) & (CH ADT). t 
O177 k 472 LD HLL SABORT EXIT WHILE CHECKING SYNTAX GF INPUT EXPRESSION 
QI7A £73 PUSH HL ae 
O17B8 474 GIT RETE Y-YtFLAGS2) 
OLZF 675 wR ZoLT s1F SYNTAX ERROR TO CAUSE ABORT FROM INFUT 
0151 474 _ LE CERR Pp 
O1SS 677) Li@4as: LO HL, (W ) 
Ole X 673 , CALL DES 
O13B 679 LO ¢1y-y¥ ERR_NR) »~1 sIN CASE HAVE ALREADY HAD SYNTAX ERROR 
OLSF X 480 CALL EDT a 
gz 5 GL RES INTE (iy- Verh Age 7 a 
O1IG R ° 682 CALL INF CHEC i SYNTAX & TYPE GF EXPRN, ABORT TO L1Q43 IF WANT 
O1yy s : AR LIG4é H TO RETYPE 
O1?B XX 685 Li@4é: CALL EIT OK 3FOR LINE INPUT Ze 
O1FE 684 LIG445: 1.0 C1Y-YtKCURF1 0 sCANCEL CURSOR 
O1az RK & i: NOTES? , ‘ 
OLAS Gig « NZL 
LAT X 639 ; EL: : 
; 670 LO fr, 
X GPl . : A SE +(SFCENL) MOVED CN PAST ECHO 
6492 LI@47i LD HLF 
FoR ae SES INF 
E74 LI .. 
Gus ; LI 2 ' 
496 2, FOR LINE INPUT 
677 “cH? FIL sHL f= LTG43 | 
G73 Pr HLL sHL := OLO (ERROSP) 
bP? LO CERRSF), HL ae 
700 FOP HL tHL f= OLD (CHADD) Shae oe. ane : 
7O1 LEV (XP TR), TSAVE IN MOVABLE VARIABLE IN CASE SPACE MADE FOR DESTN 
792 SET tater, CY ~YtFLAGS) : 
Rk 703. CALL INFUAT 3 : x ee 
704 LO HL» (xX BIR) sHL 2= OLD POINTER INTO INPUT STATEMENT ; / 
703 LO CLY-Y#X_PTR+1).0 
» 7b LO (CHADD) HL * 
oar JK LIQ? 
Oi 
70D LIG4as SHERE FOR LINE INPUT e ’ 
710 T) $Hl, @-> BYTE eee NL 
ae :DE a> REGINNING | oF LIN 
713 SBC Hi, DE 
714 OG 0H . 3 7 
y ae LD Cok HC s= LENGTH OF LINE (EXCLUDING NIL) 
X 717 
713 
, oA 
K Limes 
K LIt 
kK 7 
INPDATs STEAL WITH, TNFUT DATA . 
§ (WO *) nATA : 
SHIT NO OF TFLAGX) GIVES TYPE RECQUTRED ; 
sBIT ae STONMENT. S$) SHOWS WHETHER TO CHECK SYNTAX OR MAKE THE 
H SIG 
TIF DATA STARTS WITH “STOR TOKEN THEN RETURNS NATURALLY IF 
3 CHECKING SYNTAX, OR ABORTS IF EXECUTING. 


LO HL, (WORKSP) 


OLFS) ZAG1SC 


COLOUR ETC 


Lor 


OZ1E 


ar 


OBJ CODE M 


E7 


COSFOZ R 


(iz 


Z25F2 
Cs0000. XxX 


fins RI WINTRY) x 
Fl 
A7 
Choad RK 
FS 
Coo X- 
a7 
Fi 
[7 
7A 
b?7 
uy 


< G56 


ROCESS C0 
CHALE) => COLOUR (NO. EXPR 


iS iN) 
MS NG WITH (CHADD) -> TERMINATOR OF COLOUR 
KEYWORD 


FOTOK-FORE ce 3A t= CORRESPONDING CONTROL CHAR 


SYNTW A1/23/1982 700 PAGE & 
STMT SOURCE STATEMENT : ASM 5.9 
76° SHEADING COLOUR ETC 
762 LGLZ: RET NXT1S 
oBee, 71s RST NXT_ [5 
763 GRICOL: 6G 
7L4 $ SIBLY EMPTY) AT (CHADD) OF COLGUR 
745 _ RMINATER BY COMMAS OR SEMICOLUNS, 
Tbk 7 3 Sa NOPRENT CHAR. 
747 CALL COLIT 
768 KET SIF NOT A COLOQUR ITEM 
TED RST 
E RST 
779 cr 
771 RK 
772 Pp fs: 
773 IR ae es ae 7 a ho 7 
a3 IP sCOLGUR ITEM NOT TERMINATED BY COMMA OR SEMICOLON. 
776) COLITO: SFROCESSES A COLOUR ITEM IF Aptos TS ONE. AT (CH ADD). 
777 eases WITH A = CURRENT CHARACTE * 
773 | PRETURNS NE CCH AN) EAST COLOUR IF OA COLOUR ITEM, 
V7 5 AR c: SERVES EVERYTHING EXCEPT F IF NOT. 
TBO SWE ASSUME POR THE CNT THAT THERE ARE 4 Cone ECUTIVE TORENS 
_7 5 ° FOREGROUND, BACKGROUND, FLASH, BRIGHT, OVERFPRINT & 
7 Hy B A COLOUR ITEM CONSISTS OF ONE OF THESE FOLLOWER BY A 
Z H NUMERICAL EXPRESSION, 
4 31F CURRENT CHAR < COLOUR KEYWORDS 
7 
3 SIF CURRENT CHAR > COLOUR KEYWORDS 
= ° 
75 
7 
L COLITMs: COLOUR ITEM 
7 
7 
Z 
7 
Es 


7TU RETURN © IF CHECKING SYNTAX 


CO CUR 
CONTROL, CHAR 


“TVG 25 COLOUR COMPOSITE CHARACTER FOR TV OR FRINTER. 
= REVBYTE, Do= COLOUR, 
ABE ALG sAR= OC he coe ELSE NC, O FOR BACK, .... 4 FOR OVER 
ra 2 COLOUR SIF FORE OR B : 
Sue 
ALC A.o jA_2= O FOR FLASH OR BRIGHT, CARRY SET FOR FLASH 
JR Z,HIFLSH SIF FLASH GOR BRIGHT 


yewewey eae 


CoOL 
anit Ts 


O271 


O272 
O274 


AE . SYNTWO 11/23/1982 TOR PAGE v 
Fos CODE M STMT SOURCE STATEMENT ASM 3.9 
FEQ1L CP 1 8A = 1 FOR INVERT, 2 FOR OVER 
XOQRINVs aaa e e t\ee 3) FOR XORING/INVERSION CODE IN D (O OR 1, ELSE 
SENTER WITH NZ FOR XORING, Z FOR INVERSION. ; 
7A sCLE CARKY 
ASSERT CXC ret 0). AND. CINVOCHS2) 
COND NOT. ¢¢ a cHteO) ANE. CTNYCH=2) > 
ERR IN ASSE RT TCN CXOR_CH=O) ANI. CINV_CH=2) 
i) 
O601 Lio B, OOoodoD : 
2004 Fe Wa NZ, LXVZ - $1F XORING 
ALIA : 
RLICA 
LD 8, 000001 OOB 
LXV LO CLA 
ae Ay if) 
cP 
IK Nc» J ERRE. 
LO A ; 
LD HL; PFLAG 
JR LORS MAKE (PLFLAG) RIGHT . 
COLOUR s FADIUETS CATTRIT). (MASE.T) & CPLFLAG) FOR COLOUR Cone IN wb 
3 (60-10 9, ELSE ERROR EK). 
si wre: Salas A GALUR oo TO 7), GR TRANSPARENT (&),, OR CONTRAST 
3 
P CONTRAST" MEANS THAT THE COLOUR CPOREGROUNE OR BACKGROUND) TS 
3 SET TO CONTRAST WIH THE EXISTING OTHER COLOUR Ma CEGROUNE 
i mil Pek THE CONTRASTING COLGUR TS BLAC OR THE 
3 5S WHETE, YELLOW, CYAN & GREEN (FOR WHIEH GREEN 
3 TS PRESEN *e HITE FOR THE FARK COLOURS BLACK, BLUE, 
3 RED. & MAGENTA (FOR WHICH GREEN IS ABSENT). 
. ENTER WITH C FOR FOREGROUND, NC FOR BACK. 
SPRESERVES EE. CLEARS Fes 
7A 
RT 6G 
COND Je BREEN=2 ) 
Sie IN ASS SE RT TON GREEN=2 
4: 
0607 LU B,O00001118 i 
BBO lk ear 31F FOREGROUND 
RECA , 
RLCA \ ‘ 
LO BB, O01 110008 
LORS: iNOW B HAS 3 ol SET FOR THE 3 Bie iene BITS GF (ATTRT) & 
(MASE_T), & A IS ot ALLIGNED WITH B . 
| 
ERRK# SERROR By TNVAL TD COLI: 
LOR4: Lo HL ATTRA 


OR Ga LCRA 
‘ SHERE FOR COLOURS ¢ 


STF CoLouU 


see 


COLOUR ETC 
Loc 


OZAA 
O2ZAL 
O2AC 


O260 
oO2B1 


OBI CODE M STMT, 


chavo? 
BEOZ 
oF 
ChAvOz 


S73 
a74 
o75 


376 
37 
733 
S75 


Te CG 
ee NER 


tr 


. SYNi 
SOURCE STATEMENT 


LORGs 


DoIAAICoMMspre 


two 11/23/1982 TCO PAGE 10 


{ 
| 
| 
ASM §.9 


sFOR & (TRAN SPARENT) We LEAVE THE COLOURS AS THEY ARE, & FOR % 
5 (CONTRAST) WE REPLACE THE RELEVANT ONE BY THE CONTRAST « 
,- OF THE OTHER. | 
LD A. (HL) 3A 35 (ATTR..T) 4 
JR Za LOR44 sFOR COLOUR Sy: 
oF b 


Cc + 
AND on rO0 sear i 


;NoW THE ONLY BIT OF A THAT CAN POSSIBLY BE LEFT SET 1S THE 
3 CCMELENENT OF THE GREEN BIT FUR THE GROUND NOT BETNG 
; UE 
8 RA SIF CONTRASTING COLOUR IS BLACK 
Lp can = 0 (FOR BLACK) oR B (FOR WHITE). 
mh) : 
fi 
ROR ASK _T+1) 
‘AL. SMAKE (ATTRA v) RIGHT 
rs e 
Ett: $A GETS BIT 3-0F Df IN ALL ITS & BITS 
A MAKE ¢ _T) RIGHT 
f=4), AND. (BOCF=4) 
CONE FoCK=4) AMD. (Bh 0F+4)) 
ERROR SERTION (F_CB=4) AND. (BLCF=4) 
ENE 
RLEA ; 
AND 010100008 : 
LD BA $8 GETS 1 BIT SET FOR THE RELEVANT BIT OF (PFLAG) 
ceo ; 
Sh ALAS. $A t= -1 FOR CONTRAST, ELSE © 
Aes DRG THROUGH TO LORS TO MAKE (PFLAG) RIGHT 
SSUBROUTINE OF COLO . 
ThOR EACH SET BIT OF B, (HL) HAS ITS CORRESPONDING BIT REPLACED 
he aby THE CORRESPONDING BIT OF A. 
i CLE EARS CARRY 
ei ad 
Ru (HL 
LO CHL) 
ING HL 
LO ALE 
RET 
SADIUST CATTRAT) & CMASK.T) FOR FLASH/HIGHL IGHT COnE IN BD 
3 (O, 1 OR &, ERROR K). 
FENTER WITH c FoR EL Ne FoR HIGHLIGHT 
Sh AA TPRESERVES. 6: Gt EGR® eRe”: 
LO A, : 
BeSERT AND. (HILITE=4) : 


=7). AND. (HILTTE=4)) 
(FLASH=7). AND. ria HILITE=4) 


dR NZ, LHH2 


RRA 


me ETC SYNTH 
Loe: Ob COLE M STMT SOURCE STAT 


veo 
om 


L. 
LHHZs - 
ne 
al 


aed | 
a ZL SIF CODE IS “TRANSPARENT ~ 
Cr am 
j wth SUNLESS CODE TS: “cn? OR “CFF? 
LHH3: : : 
RT MASH TSATTR.T+) 
NT (M =ATTR.. 
pie : N ASSERTION MASE, UIZATTRAT +1 
Z1GFSi B37 Lh TL ATTR. ¥ : bat 
CDAVOZ RK P33 CALL LURKS iMAKE (ATTR.T) RIGHT 
73 . ap? D 2 ; is 
OF Pao RACA - 
OF a4 RRA 
OF 42 RECA 2 : 
13h Be JR LORS SMALE (MASET) RIGHT 
a 
: 245 BORDER: iSET BORDER COLOUR TO COLGUR ON CALCTR STACK 
X 844 CALL. FIX ti 
VAT CF & Z ss whey 
Pay _ Ne ERRE, VIF NOT A VALID COLOUR 
pay OUT (BORDPT A x 
930 ASSERT (BACK G=: AND. (FOREG=0 ) 
° t NOT. ¢ 3= 3) AND. (FOREG=0) ) 
et ee IN ASSERTION: (BAC RAGS) AND. (FOREG=0) 
a: 
LEA 
RLCA 
BULA. 
BiT 


wl - ‘NZ Pors 


XR SFOREGROUND 2= WHITE IF DARK BORDER 
LERSs LE. (BORDCR) » 7A 
a 


END 


ro dahbes GRAFT 11/23/1982 TEC PAGE 1 
Lot OBS CODE M. STMT SQURCE ST ATERENT AIM 5.9 
*#HEADING GRAPHICS 
#LIST CN 
GLOBAL: PLOT, GET_XY. DRAW, CIRCLE, Fo PNT 
Et TER Baile? ATTEYT the | 
EXTER SELECT gENIT 
EXTE RNA LC Nib 9 TEMG SYNERR » FIX_Us FIX UN § SYNTAX 
EXTE eRNAL EXPRN, yrete SEXPRM 
EXTERNAL FR? 2A, STK. s INGUT 
SCRMBL & sHL ¢-> BYTE IN DISPLAY FILE FOR PIXEL (C,B)s = 
3 BYTE (0 FOR LEFT HAND = MS END, 1 FOR Richy HAND. = LS END) 
SPRESERVES BE 
3 ¢ Ni-2) #8-1--B 
4 2 BITS FOR Lock \ 3 BITS FOR LINE \ 3-BITS FOR SCAN 
3 Ce S BITS FOR COLUMN \ 3 BITS FOR BOT 
3 & WE WANT 
i H i= O10 \ BLOCK \ SCAN 
3 Ls] LINE \ COLUMN 
“i 8s O000O \ DOT 


2) 85-1 


baaro2 R SIF B TOG BIG 


47 ay, 
A7 bist ‘ 
. 1F 4p 
s 27 410 
: 1F 411 i 
j AZ ALS 
g 1F 413 
i Aa 414 
cACil E4FS 41s 
a AS 416 
ak 47 417 
Pa 79 418 
Oe 07 419 
i 07 420 
wre ed qos ABD t,A f= LS 2 BITS GF COLUMN \ DOT \ MS 3 BITS OF COLUMN 
¥ bed ez . 
04 7 EéC7 QND 110001116 
ON AS XxOR 6 
OOLA O7 RLCA 
OE o7 RLOA 
HOLE &F Lo LA 
WoL E 73 LO Ast 
OOLE E407 aNd OCCA L LES 
OOSO cy RE 
F_LENTs 
SRUN-TIME ACTION FOR POINT. . 
. _ $COORDS ARE OM STACK, AS FOR PLOT. 
COSDOQ RK CALL GETUXY 
Choi R Call SCrRMBL : a2 ee Jae 
47 LU ELA $6 3= GOT NO, 
o4 Inc & Fi 
7E ; Sic LD A, CHL) 
O7 4400 LFP2: RLCA 
10FD 441 VINZ LFPS 
442 iNOW A HAS REGUIRED BIT IN BIT © 
E401 443 AND 1 
C0000 x ate JF STKLA 
4S 
444 FLOT: SPLOT X,Y: SET FIXEL (X,Y) 


a 


a hi Ics 

OR! CODE. 
0032 COSDOO 
9035 CHSBO0 
O33 C320000 
QO3K Eb43705C 
Og VF C ooo 
0042 47 
Cna-Es 04 
0044 ~3EFE 


ane mys 


oa 6) 


¢ 
OOS 
OO49 


006A 
OO“AL 
OO79 
OO72 
O07 
Oo75 


. 


77 
C320000 


IAQ 


6A00 


a 


ptt 


SPORTS 
Timer SEIN 


CHoOood Q 
DA4F Oz 


<I = 


‘GRAPHS 11/23/1982. TCC PAGE = 2 
STMT SOURCE STATEMENT ASM 5.4 
447 CALL GET_XY 
443 CALL PLOTBC 
432 JP RIATTS - 
50 
451 PLOTBC: DEAL WITH CIXEL AT (CB) IF FLOT OR DRAW 
452 ISETS (COORDS) = Boe 
43 STHERE ARE 4 OPTIONS, DEPENDING ON BITS XOR_CH & INV_CH GF 
454 3 (PFLAG)? - 
455 3 XORWCH = 0, INVICH = Os SET BRT C*PLOT“I. 
434 3 XOR_CH = O, INV_CH = is RESET ‘BIT C7UNPLOT~ I 
457 $ XOR_CH = 1, INVLICH = G3 INVERT BIT use 
4S3 eee XQORCH = 1, INV.CH = 1% LEAVE BIT C*°MOVE") 
4g LE (COORDS), BC : 
440 CALL SCRHBL 
461 ate ELA 
42 INC BO 
AGS + bb Be kd NEAL IO8 
464 LPBS: RRA 
465 DINZ LFRS < \ : 
4t& LO BA 3B t= ALL 1S EXCEPT A © IN DOT’TH BIT 
447 LU A. (HL) . = F 
4G LOC, (1Y-Y+tP_FLAG) ‘ 
Aho BIT xORLCH,C 
470 WR NZ, LFBS : z ; 
471. P AND SIF NOT XORING THEN DELETE OLD BIT 
472 LPS: BIT INVICH,& e . . 
473 AR Miah PES TIF EITHER UNFLOT OR MOVE 
474 XOR Bi : 
475 CPL 
47& LPB4: ib (HLA 
ace JP ATTBYT F 
73 . 
473 GET_XYs sFOF A PAIR GF i- ~BYTE NUMBERS TO BC, SET D = SIGN OF & 
4530 i (+1 OR “1d, OF C. 
451 sTOF GOES B, 2NE ROM TOP GOES TO Cc. 
452 3 SMASHES THE ALTERNATE sche OF REGISTERS 
4S3 CALL LGXS* 
44 LD BA. 
4s FUSH BC 
4g CALL LGXS 
487 0 EC 
433 POP BC 
4 Lo pc 
4 LO A 
42) ET - 
4u3 LGXS: sSUBROUTINE TO FOP NUMBER TO A, SIGN TO Cc. 
4nd CALL FRZA 
qVS IP Eeenne 
4: ib esi 
4 RET Z 
; LO c,-1 
4 RET 


GRAPHICS GRAPHS AL/S3/1732. 700 FAGE 3 
Lor OBI COLE M STHT SOURCE STATEMENT ASM 8.9 
Sag - eEIECT : 
bata | 
S02 CIRCLES hoes” To DEAL WITH END OF CIRCLE STATEMENT WHEN CHECKING 
Sa: ; SYNTAX OR RUNNING 
S04 ; 1) => TERMINATOR GF Y-COORTINATE OF CENTR 
SOS eae’ Yea 3: Y. XE, YE, OX, bY: & Lomat ARE Sales TN C1 & HCzZ. 
a GN 
O76 i Rat TGN 
O77 F CF 
OO7F Cz x oF Nz.8 
RST NXT_IS 
Oo7E  E7 RST NXT. z ' 
oo7T CHOIR x CALL TENG 
CHO CHOIOO xX CALL END? . — . 
; ‘ jWE NOW HAVE ON TOP GF THE STACK THE COORDINATES xC & YC OF THE 
a4 CENTRE, & (ON°TOP) THE RADIUS FR. 
EF. : ATR : 
2A Si DEFER ABS +MAKE RK +VE. 
Bf] S DEF BR FLOAT 
BS 5 DEFE GuTT 
7E S LO A, CHL) 
FES) gi CP Sin 
2005 5 JR ONC LCEZ : ; — 
i) ] RSoY WE JUST DO PLOT XC, yc 
EF 
oe 
38 = -E ay 
1SA1 a PLOT 
: LCEZ: RET CALCTR 
EF RST CALCTR : 
AS DEFER CONST +3 sPI/2 
38 DEF E TT Q 
3483 oo STOP OF STACK s= SHF I 
EE ile ty 
Co IMEMORY S t= See FOR THETA 
a2 
Chg kK : 
ie sXC, YO, KOON STACK 
OWE EF : : 
OOoFr 3 
QOAG EY gu" 
OA a4 1 GRAS" = 1/2 # INITIAL Ly 
Be " G 4 aXe CR, onY/2 
7E Li Ar (HL) 
Wye] FESO CP OH 
GOAG S003 JR ONC, LOES 
“aoe INITIAL \DOYN < 1 WE DG FLOT xc, YC INSTEAD 
TH 
QORS EF is 7 
93 Oe iDY/2 , 
a 
‘ XO, YO 
OoAL 
OoAL R 
LCE Ss  CALCTR sXC, YOR, RHE" 
OOP EF CALCTR ; 
OOEL Cz. 4” B COPY+2 SMEMORY 2 := DY/2 


cana Saale eal ie rT . Se lee Meee 


Ne 


BABI CS GRAPHS 11/23/1752 700 PASE 4 


OB CODE. " STMT SOURCE eT ATERENT z ASM S29 
QOH2 O14 S55 DEFE ex ae 
co SoG DEFE COPY+0 SMEMORY © t= Ry TEMPORARILY 
Oz LOSE $A VO, RES 
. OF i fi TOR r= Yo-ReS" = YE = INITIAL Y 
at i EXCH. - 
EO B40 MEMORY+0 iYE.XC1R : 
f OF S44 2 ALL TOP = XC+R = XE = IMITIAL X 
a1) og co She COPY +O | SMENORY O s= XE, TEMPORARILY 
OObA OL S43 ELITE 3 XE, YE : ' 
OOEGS 31 S44 Die 
OOR EO S45 EF 1 HEMGRY +0 
OOnG a1 S46 Ke EXCGH -XE,YE, X,Y 
OoObE a1 S47 Bs Dp 
OOF EO S48 ree FXE, YE, X.Y. VX 
Oo a Aa . SAD 24 
ee 270 | MEMORY 18= 6 =- INITIAL DX 
Og S71 2 2 ; 
oS : ay pea  BEFB ei 
FUSI62 S73 - Ni AMEMEGT+ 10) +MEMORY 2 2= DY (INSTEAD OF DY/2) 
ChOGdG, xX 574 “ALL 
AF 7S shLoae X 
ES S76 
CHOOGD X 577 
El 378 
&7 S72? aA sH te Y 
227055 gO th (COORDS ) HL 
C1 : oy Bor pic: 
GODS 374601 R Sos JP oos 
ot 


GRAPHICS GRAPHS 11/28/1982 700 FAGE i 


Lae Oi CODE M STMT SOURCE STATEMENT AEM 3S. 
2 HE JECT 
Fe DRAWS: THERE Janene WITH END OF DRAW STATEMENT, CHECKING SYNTAX GR «. 
nt Es 3 . 
bat § (CHADD) -—> TERMINATOR OF Y-COORDINATE 
bats RST IGN_SP 
OLS ELD _ IGN. SF ' 
Cais Sie 
CITIES S70 GR Zt? SIF ANGLE THETA PRESENT n, 
Celaya 8 X ‘Sei CALL ENIV? x : 2 . 
QOEO kK Bee UP DRORA {ELSE JUST DRAW STRAIGHT LINE 
td " J 
; S94 Lowes es 
QOES. E7 . - : ’ 
QOOE4 COO000 X ES : . : 
OOE7 Choo X Sows C ALL ENU: ? z ene : E : : 
: 597 : SNOW STACK HAS RELATIVE COORDINATES XK & YR, & ANGLE THETA. ; 
bate RST CALCTR 
EF 5 ST ¢ ALILTR 
JES nEFB COP iy aaa S ts THETA : oie: 
Ax : 1/2 : . é 
a4 : 
1F 
31 
Ba 
20 
00 
04, 
oy 
2S : : 
C3couol R sJUST 0 DRAW XR YR IF SIN (THETA/2Z) = © 
co SMNENORY O s= S* (SAY) = SIN (THETA/2) (TEMPORARILY) 
OZ §XR.YR LEFT : ; : 
Cl /SMEMORY 1022 YR (TEMPORARILY) : 
of 
1 
of 2A 3 XRaN\XRN 
OOK F El sXR.\XRN\2YR 
O10 ey 3XRiYR,\XRN 
opod El 3 XR. YR» \XRN YR 
OLo2 ZA = 
a OF FE ALi 
EO ZF NENMORY-+0O 3XR, VRs \XRVANYRA 9 87 
Opos Os ECE GIy STOP 2 R_CSAY) = (NXRNtN\YR\D/S%. AN APFROXIMATIGN TO 
O106 ZA : $ THE RARIUS oF CURVATURE ° : 
O107 Ea sa° 
OLS 2 3XR,YRS°R : 


OLoy VEFR FLOAT ; 
Ta) DEF E ett] 
E a A, (HL) 3A ¢= EXPT BYTE OF R 
CP eae . ’ 


SUNLESS Ro 1, WHEN WE WIS. Dice DRAW XR. YR 


BEFE b =A 
DEFER QUIET 
JF ER RA. 


LOWE72 CALL tn 


EScnOL 
COB301 


GYR, 5°. R ARE_ON THE STACK 
2S", C,S,THETA ARE IN MEMORIES 0,1,3,4,5 
5 IN THE & REGISTER. 


GRAPHICS ' GRAPHS 11/23/1982_TC0 PAGE — & 
Lt OHI CODE M STMT SGURCE STATEMENT ASM 5.9 


OLA cs 
O11B EF + 
c O02 if 
? Vs SXRYR S75" 

so | 3 MEMORY se "7/5" (TEMPORARILY) 

= Us 

22 q) EXCH 

Rea ot Die 

4 El EEE M oes BPR ie q 

25 oF TUM 37 if = X" (SAY) 

2G C2 y+? i NERCRY (TEMPORARILY) 

27 o2 

28 Ot 

2 SL 

EL 3 XKy YR YRS" / 5° 
o4 TOP s=.YR#S"/S° = ¥% (SAY) 
ES 3XKiYR,Y“% 1X 
ES §XRrYR2V%.X%2 THETA 7 
EQ sFHI \ 
O3 
A2 71/2 
oq 
31 
1F 3 XR YR V2 X%. CTHETA-FUID 7/2, SIN ((THETA-PHI)/2) 
cs MEMORY S t= S*" (SAY) = SIN ((THETA- PHI) 72 ) 
Qe 


( MEMORY O ¢= C°" (SAY) = COS ((THETA-PHI)/2) 
# sXR, YR,“ xX? . . x ‘ 
a sMENORY 2 se X% 
ae 
C1 Ea 1 ie b At 
ES 3XR,YR,47,5°" ote ie : fe 
fea “ROTATED THROUGH AN ANGLE —(THETA-FHI)/2 TO GIVE 
ae ee a4 a as 
Ot EO sGET Ce" ; 
a er E2 1G6ET xX 
O40 O4 oe “ es 
Opal OF sTOR t= INITIAL DX = C+" HX’ +o uwey’ 
ol42 Et 7Y° 
o143 ot 
144 mt rad ts 0x 
14s Oz 3 LEFT 
O14G GO H 
O147 a4 
wh 4s E2 3 
or aes H 
Ot O« 
140 O3 sTor t= INITIAL PY = -S° "HX" + CoURY” 
apace 32 ’ a= fy 
o14o ZA a 
O14E El 31x ' 
OL4F 2A 
We Gath) OF 3 \DXN4NDY\ 
OU of sLEAVING XR.YR : 
OVss ee i 
at | 
OL FES ; ‘ 
4 é 3B t= N a Md 
OLS7 FAC EO 1 RK SIF \DX\4\DY\ <1 THEN wWST DO DRAW XR. YR 


sr yds GRAPUS LA/EB/1FER_TCO PAGE Zz 


Liat J CODE M STMT SOURCE STATEMENT AaM 5. 
ok a 706 AUISH BIC 
iy) T CALCTR 
O1SB EF CALCTR . ; 
> OL. 708 3 EXCH ts 
23 709 3, 3 VR» XR 
snr 716 2c: 
ChOGGa xX Zid &: 
TAZ CAL! 
EF . 1 cal. 
LQ 713 i MEMORY Oo r= X (TEMPORARILY) 
OF 714 5 YR» X 
1 715 3 XE 
a 71é 
SATESC 717 
EnoId “§ X 71S 
ee A rae 
O16F EF 
0170 CS 720 IEF B sMEMORY S t= Y (TEMPORARILY) 
O17, 0 OF 721 DEFB AbD +XE>YE 
O172 EO 722 LEFB EMORY +0 gGET X 
o173 ES 724 DEFBR MEMORY+S  sGET Y 
Ol,4 38 ‘7 DEFR QUIT 5 
O175 C1 z POP BC SDROF THROUGH TT 7 
7 res SOND COMMON SUBROUTINE | OF RAW & CIRCLE. 
7 sENTER WITH XE YE & Y (ON TOP) CN CALCTR STACK. 
Z ; x. DY. 0 IN MEMORIES 1:23 %& 4 
72 ; N IN Ft. ER 
73 ;ORAWS N CHORD (OX, BY) iN SUCCESS TON START ING At (x.¥) To 
7 3 AFFROXI q E. FoR THE FIRST. DX & DY 
7 3 ARE AS O I SEQUENT HINES (ix ov) 1s 
Hy iW) 4 HI lH ay Soe NE 4 
5 ; S Attn eg . Er Hegde & DY ARE HE ARGOTTEN 
735 5 & A SIN ToT LINE 1S LAWN ‘ 
7 7X & Y ARE COORDINATES FOR THE CURRENT at FOSITION, BUT 
4176 . 7 5 e Caen ATED EXACTLY INSTEAD GF BEING ROUNDED. 
Dy os 7 
Q177 | 2e20 7 i 
O179 1314 7 
7 
7 LOC22: ;HERE TO CALCULATE NEW (Ox, DY). 
7 tOX pe CHnX-Sany,’ DY os 34 (OLD OX) +ceDy 
Es ETACK XE, YE. XY. 
O1L7B EF 4 ; 
o17e Et 7 GET DX 
oi7b 3h 7 
O17E ES 7 sXE, YE Xo V2 DX DXC 
FO 04 7 
E2 7 " 
E4 7: §XEs YE» Xs Yo DX, C#DX DY) S 
O44 7 
Os iy 
ol 7 ;MEMORY 1 25 NEW DX 
Oe Z 3XE,YE+X+Y7 OLD DX 
Eq yy 
a4 7 
eS 7 ’ 
ES Tae 
760 if 
7&1 =F : , : 
762 DEF E COPY +2 SMEMORY 2 := NEW DY 
743 DEFER LOSE 3 XE. YE, Xo0¥ 
764 DEFR muUIT 
‘76S LINE SHERE TO GRAW CHORD. 


GRAFHICS 
OBJ CODE M STMT SOURCE STATEMENT ASM 


LOC . 


Q a oe 


OES 
OLB3 


“ OLEKS 
Obs 
OLES7 
OL ks 
QLEy 
OLDA 
OLED 


Cc 
a 


EF 
co 
QZ 
El 
OF 
21 
ber) 


SATO 
CHO000 


CHOooe 
EF 
OS 
u 


2A7ESC 


EF 
os 
33 


CHODOZ 
30000 


-_—mT 


NNINSNINININS 
SWANN 
“SCONCES UI 


Per EE DRADER] 
o 


SU aS 
PUL NH GD ae 


« 


SIN 
epee 


OHHH 
NOUS ish 


Preis 
eagreage 


HAIN SISAANINNING Si 


os 


xe: 
bine OO Gee 


SON Ls 


Loc27: 


DRA: 


to1s . 


GRAPHS 11/2:3/1982_TCC PAGE «i 


$B = NG. CHORDS LEFT TO DRAW (EXCLUDING LAST) 
sCALCTR STAC. HAS XE,VYE,X & 
sX +8= OX, Y +2= DY, DRAW TO NEW (X,Y) 

RST CALCTR 


sMEMORY © i= Y 


PB OLOSE 
DEFR MEMORY+1 1¥E SVE. 2X. DX. * 
DEFB Alt OF 8= X+0X = NEW VALUE FUR x . 

DEB BUF a ‘ 
DEFB GuIT “XE, YE,X,X 
LD As (POORES ) 
CALL STELA 
RET CALCTR 
RST CALCTR 
“DEFB St TOP &= X-DISPLACEMENT FOR DRAW 
DEFER NENGRY+O sGET Y 
NEF MEMORY+2 . $XE,VE.X,X-DISP,Y, DY : 
DEF STOR is yany. = Stes VALLE FOR v. 
EEE 7MEMORY O t= NEW Y , 
+XE,YEsX,V,X-LISP,Y 
; ik 

oF CALCT 
DEF SUG STOP s& Y-DISP FOR DRAW 
DEFER GUT . ; 
CALL BRAWL 
POP BO 
LINZ ED22 . E z 

en RE as LAST CHORD WITH XE,YE,X,Y GN CALCTR STACK 


5 YE, XE 


SYE,X-DISP FOR DRAW_L 
§X-GHTSP, YE : ‘ 


JaX-DISP, Y~DTSF 


aT 
CALL DRAWLL. & FLATTS 
CALL DRAW LL 
JF RLATTS ‘ 
157 COMMON SUBROUTINE GF DRAW & CIRCLE. 
ENTER WITH 


RL a CALCTR STACK, R. THE RADIUS CF CURVATURE 
IE MG S = THETA, THE A ANGLE TO BE TURNED THROUGH 
RETURN WitH 


MEMORY QO = FHI 
MEMORY 1 = S" = SIN (PHI/2) 


2 ve we we we we we 


GRAFHICS GRAPHS 11/23/1722 TCO FAGE a 


Lia: OR) CODE.M STMT SOURCE STATEMENT : ; AZ Soy 
2 3 MEMORY “3 = “FHI 

3 MEMORY 4 = FHI 
3 MEMORY Sf 3 AS THETA é 
$ B REGISTER N 
5 &® CALCTR STA EO UNCHANGETS. 
THERE N= NO. OOF CHORDS To RE IRAWN IN Wane ee AN ARC, 
3 THETA = ANGLE TO BE TUR Ned THROUGH BY AR 2 
5 aah = THETA/N = ANGLE SUBTENDED! AT CENTRE BY EACH ARC. 
vIF WEP ARE PHI = 2#ARCCOS ((R-.5)/R) ATEN THE ARG WILL. NEVER 
$ Fe AGRE THAN 2/2 PIXEL FRE cm THE CHORDS. WE AFFROX IMATE 
be TO THIS BY PHI = 24#R°(-1/2 

EF TR 

31 

23 

34 $2 = (GO # 2S 

32 

ao ‘ 

ol : 

. “Fe TV ae ; 

B MEMNORY+S 3GET THETA ; 3 
EXct 


is DIV: Fy os 
B AR: 3a \THETA/FHIN = N 
x 
co ; SIF N >= 2546, N t= 252 
ANL ore “Hl 770 MA KE NA MULTIPLE OF 4 
AbD AL4 SPOR LUCK 
ve NO) LD 14 ; 
“4 SHERE WITH A = Nr & RK ON STACK 
“‘oead x 


#R.N> THETA 

syOR ss io FHI = THETA/N 
the PHI,CH 

iRAPHI,S 

sMEMORY 4 3= 5 

sROPHL PHI 

s1/z 

SROFHIDS" = SIN (PHI/2) 
3MEMORY te 5" 


sMEMORY O f= FHT 


wee 


3h. 8", 3" 


DEP iS DIP 
DEPE TIHES 
Llze iB UIE ; 
I a8) 


1 - 2ee"sr = Con FHI = ¢ 


GRAPHICS 


Lit: 


Oo 


eat a cel et} 
THD 


CEN CUE M 


CHs000 RK 
79 

Bis 

BO06 

ed wa 


at 


oe 


Sobre 
a CF oe EE ee 


Te cum 
SHARE 


Cote 
‘ 


ee 
S 


Dub sweh nore — a 


¥EJSECT 
DRAW_L: 


LUR2: 


LOK Ss 


LIRR s 


LURASs 


LORS s 


LORGs 


GRAPHS 
SOURCE STATEMENT 


‘ 


1 


VW/23/178 S270 


5 ¥ 
; 3 ALE ea ncuT LIME FROM THE CURRENT Conk TO RELATIVE 
Bonn a SIT (X,Y) X & Y ARE SIGNED, + RIGHT OR UPWARDS. 
SUES A BIMS ANY RATE =MULTIPLIER AL GORT THM 
+ LET M GE THE LARGER OF NK\ & \YN, & NX" THE OTHER. 
3 LET G : TEP IN THE TIGGONAL LIRECT ICN NEFINED BY 
* THE 4 Y, & 12 A UNIT STEP IN Ve ee ee 
# TORE [ ky" “THE LARGER OF X & ¥ = & 
; Ys RIGHT & DOWNWARDS & D2 is. “pe oNHARES, IF 
: re: / ZERO, THEN TM TS NOT USEn; IF X = Y THEN 12 
& : 

7 LET S CCUINUL ATOR THAT TS INITIALIZER TO M72. WE DO THE 
3 eee “TIMES 
Hy sy oy 
H ee ae. So My MOVE BY D1, ELSE SUBTRACT M FROM & & MOVE 
3 4 1 
§ THE END CFFECT 15 A MOVE CF N FLACES IN DIRECTION [11 & M-N IN 
$ aie os Qi2, THE TWO DIRECTIONS BEING MIXED AS EVENLY AS 
5 aR bated 

CALL GETLXY e ‘ : 

24 ge gNOW B= \YN, C= AX\, DE = fa, 

{ a] : 

Jk NC, LORS - ne 

LO Lc jHERE IF \Y\ > A\X\. SOM = \Y\, N = AX\, ’ 

PUSH DE . 

XOR A te 

Li En: iD! 1S UPWARDS OR HOWNWARDS 

AK LOOKS H 

oR SHERE IF - \ 38 AY\y SO M = \X\, N &AY\ 

RET Zz iNGTHING i OO IF X = Ys oO 

LY Lok 

Lb by : 

PUSH Bie: i 

LO D0 sw F 
SNOW B= M, bL = Ny DE ba, (SF) = Til, CARRY CLEAR 

LO He & : 

LO Ak 

“KA | AS 2 Dy ie. oe 
sSTART OF LOurs ‘s COUNTS ITERATIONS, A=S. H=M, L=N, DE=nz, 
5 (SP)=D1 ; 

ALD AL 

oe oe 3 IF CARRY THEN CERTAINLY Ss > M. 

£ 

i1F 8 


uh Li’ 


Lou oL,A 
Push) GE 
EXX 


POP gc 


SNOW BY 


i BC = 
LO HL, (COORDS) 
Ch A,B 


SEL EURTRACT M & MOVE DTAGH hed 
| 
i 
4 
| 
jHERE TO MOVE KROmKWI SE 
i 
| 


ry 


BlOUNT, 00% “ehh Len, DE =D2, (SF)=m1, 
WHICHEVER SOR TRED OF fi & D2, 
N AC) TO CURRENT FOSN (IM HL). 


SADE MOVE (1 


i 
i 
H 
| 
| 
{ 
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Lin OB CODE M STMT SCHIRCE STATEMENT ASM S.? 


SWE NOW WANT To ADD t. TO C, & ABORT IF THIS are Cc pee 
ne 3 THE RANGE O TO 255.) T.€. IF L=o, C=-1, OR C=255, C=41. 
73 LB At E ee : 
ci ING A iA 2S O, 1 OR Z 
bats ALE ArL 
Pie ERROR CONDITIONS ARE NOW (C,NZ) FOR L=255, C=+1, & (NC, Z) 
; FOR L=0, C=-1, 
S201 FS CG» LDS | ; 
260D er Jk 2 »ERRE 3 H tt 
3B 957 LEIR7s DEC A | ° 
4r oo LOCA 
CHSBOO Ko Po7 CALL PLOTEC SPLOT OB UNFLOT PIXEL 
Ly 260 EXX : 
73 4 LD Ao : 
1OD9 Pez DINZ LOR4 IREPEAT LOOP | : ; 
Da PhS POP LE : SRENGOVE Th FROM STACK WHEN TNE 
cp vh4 + RET 
265 : 
O240 28F3 Foe LORE lft Z,LDR7 . im os a 
967 ERRES Ret ERROR SERROR By INTEGER OUT OF RANGE , 
OZ4F + CF i: R31 ae ud ae . ’ 
o250 CA YO LEFB 10 ‘ 
: ya) ; | 
970 END 


EXPRESSION EVALUATOK __ EX 11/23/1952 7Cr PAGE 1 
Loc OB CODE M STMT SOURCE STATEMENT ‘ AEM S.% 
#HEAL EXPRESS TON EVALUATOR 
aad chy 
GLOBAL EXPRNs INTPT? NXT HL e, 
EXTERNAL PEE Ce HL» Tb 5 
EXTERNAL EF No kK. BASE, CHCODE $ 
EX1 Ce CH § 
EXT ; 
EXTER a! 
EXTER i: 
. EXTEK 3 
EXTCR LT CER, GET_EL» ALPHA? i] 
EXTER ZA 3 
EXTE 3 
SSYNTAX CHECK Uf EVALUATE EXPRESSION, 
3 LEAVES VALUE ON _PALCUL ATOR STACK IF EVALUATING. GN RETURN 
foHL = (CHANT) > ees = A. : 
: i SMASHES BCDEASF’ Be CDE’ 
OOO DF Re ; % 
gad O4L00 L: i 
OOS ix F BC TACK ZERO FRIORITY “START OF EXPRESSION’ MARKER 
LEZ: “ELA 7 HERE WHEN E EXPECT OPERANDS CURRENT CHAR IN A 
4 a 
K LU HL, OF DTAR 
X CALL SEARCH 
: LO AL |. 7A 32 CURRENT CHARACTER 
K JF ONC, LESL SUNLESS CHAR FOUND TN TABLE 
LO b,0 . ® 
4E LOC, CHL) 
oo12 oP ADD HL, BC ye : 
OOL3 Ey AP CHL) 370 DEAL WITH CHAR 
SuLLFE STRING LITERAL FORTION CA SUBROUTINE GF STRLIF) 
‘ GER WITH CCH. -ABD) eta A RING GuoTeE. 


je aoe NEXT STRING QUOTE 


CHES fean We TH & ee Lee TERMINAL. STRING 
AT NOT INCLUDING INITIAL ONE 
JTHAR NO. BYTES MOVED BY  CDHOADI) 


If FINCK NL. 

SUMES THAT THE ONLY COMPOSITE CHARACTERS THAT CAN APPEAR 
INA GUOTED STRING ARE THE ATTRIBUTE CONTROLS: THE BATA 
BYTES FOR THESE ARE 9 OR LESS, & SO CANNOT BE “"" OR N 


3 
3 
i 
3 
5 
3 
3 
3 
3 
; 
3 
3 
Te 


id 4 CDOOGG x LSPs CALL ,NEX CH 
O17 : INC Gt 

Tee ed Cr ON 

OLA vi? 2, SNERR 
ites ee) Cr am 
OOF JR NZ, LSPS 
ne x een NEXTCH 
iw ee 

OLS RET 


DY_KET? 


EXPRESS 


Loe 
ooze 


e Obs 7) 


Oe 
Ooé 
OULD 
OOEE 
oMo70 
ous 
go74 
QO7S 
OO74 


OO78 
OO7F 


aloe 
F7 


13 
150A 


x 


a 


SION EVALUATOR 
CEJ aetah M STMT 5 


PHLSEp 
SERRE SS 
GN bios 


EXER ; LI/23/ 1582 TCC PAGE 2 
STATEMENT AEM 5.9 
CALL DYADIC 
RET IGN 
RST IGN_S . 
CR“)? © 


JP NZ, SYNERR : 
BLT INTPT: (LY-Y4E LAGS)  sNB PRESERVES CARRY 
aN ind 


TRUN TINE ACTION FOR SCREEN _ 4 

3 THE TWO ARGUMENTS ARE TERPEETER AS THE AT COORDS OF a CHAR. 
3 POSITIGN ee THE SCREEN. IF THES POSITION CONTAINS A 

3 PRINTALLE A SCTT CHAR. OR THE ee — GF ONE, THEN THE 

3 sey 1m THAT CHAR. : ELSE IT Ts ; EMPTY STRING. 

CALL GET _XY C LINE, & '= COLUMN (AT Fonts) 

LO HL» (CHARS) 


LE De, s#20r ‘ / 

Alo Hk. 7DE sHL ¢-> 1ST CHAR .IN CHARACTER SET (CORRG. Ta “ *). 
mM Ad . 

RROA 

RRA 

KROA ee : : 

AND. 11100000B ; ’ 

Xun 1 : . 

Lo 1: Aa 

ANE G01 100018 

KOR OLOod0o008 ‘ , 

Lo a 70 t-> CHAR IN DISPLAY FILE _ 

1.0 iB = NO. PRINTAE =e ASCIT CHARS 

INC AT eae : 

JK ONZ RE S7 71F CHAR DOESNT MATCH 

LEC A fA c= -1 ; : 

LU CA 7C s= 0 are fa Lee ‘T MATCH, ~1 FOR INVERSE MATCH 

Lo Pa? $6 s= NO. S 

ak ov STE > 

ING FL SHL 2-> 


Lb Aa, (BE) 
AU ive ) 
XUR i: . : 

aN Nz, s MATCH 
[hJiNZ LE : a o . 

-> CHAR IN CHAR: SET. (SP+2) -> CHAR IN 
CHAR COUNT 


+ 


3A c= CHAR. CODE 


wo ue 


HERE WHEN CHAR, DGESN’T MATE i WITH (SF) -> CHAR JN CHAR SET, 
(SP+2) -> CHAR. tN. st SPLAY FILE, (SP+5) = CHAR COUNT. 


POP HL 
LO DE, & 


ae a tae alee oe see ee Peer a ne meme aD Se On sheen ee 


EXPRES311, aN EVALUA TOR é EXFR Li/ SEs 1982700 ge 3 
Loc OE CODE M STMT SOURCE STa’ Feet ALM SS. 


O07 1Y S07 ALD HL, DE sHL s-> NEXT CHAR IN CHAR SET 
vo7D O1 ba POP DE STE 3--> CHAR IN DISPLAY FILE 
Qo7eE Cl SOF FOP BC $B oie Chane count ; « 
OO7F 1OoD3 210 IMINZ LES . . FFOR NEXT CHAR : 
: : S11 : F HERE IF NG MATCH AT ALL» WITH B = 0 
43 sie & C, sBC c= 0 
CS0QQG «xX Hig LF Sis te FSHSTR 
S13 FUATTRE sRUN-TINE ACTION FOR ATTR. a 
: S14 SARGUMENTS ARE CN THE CALCULATOR stack. 
OSS x ei2 eae GET_XY sb a NOs. BOs = COLUMN NO, 
et S16 h 7 > 
Fo a} BRCA 
A XBROA 
CA . 
ie LbmA 
aye7 i) : AND [11000008 
JSF AU 
Q | ee a 
i ED Ate 
2° ANT {oo00001 1B 
AUR O1011000B * 
LO HLA 
tp Ay (HL) 
x : JF STR 
OP DTAES aise | OF CHARS FOR GFERAND & THE RELATIVE ADDRESSES OF CODE 
a : TG BEAL WITH THEM. . 
ar 
. HE 
F2 
OAL ZEB 
Oo 12 
ORS Ag 
by 
AS 
7 
A7 
34 
AL 
Dune SF 
QUA C4 
CWrey a |i E44 
OOnl Ar 
OE bir 
QORF Ae ‘ 
a EO 7 
CE 
Oo 


S41 MONPLS: 


OOB4 E7 
OOBS Csa400 R 


STRLIT: aK 
NORMAL LY THE VALUE OF THE STRING AS FUT ON THE 
STACK POINTS BIRECTLY INTO THE SOURCE: BUT IF THE 
ING EOHTAINS ANY GUOTE IMAGES (FATES OF CONSECUTIVE 
GUINTES) THEN A COPY OF THE STRING TS MADE IN WORK- 
WHIC i THE GUOTE IMAGES ARE REPLACED BY QUOTES. 


Ou: rey 


CWT wy ae 
Qube 
Cem) oe ik 
hoki 
CWI Re | 
WY my ied 
CWT BP} 
Twiw) WES 9 
Ls 
Vibes 
ele ee 
hed 
rw Wa a 


. 


Odd 


da rw oe 


OVE? 
oka 


Oarw) ea 8) 
(WI) on od 

un ar t 
wap Ss 


(aoe 7 
ain 


Gi “tt 
iwi 


we RW ed 
oloe 
wi 
Wok 
Oboe 


rary) 1 Aa f0 
awe wi 
cil 4400 


i 
k 
i 
1 
‘ 
V 


Ptchoauth ee Ni 


y a = 
Ane 
Lavoe 


k7 
Lokal winy® 
Pee 


BE? 


Jar) a 


LU4b 7450 


PaO RIR INT OTS) 


te 
wi 
oy 


Oe COLE MM 


~ 


SPARS AG-: 


PRD 


STMT 


SOURCE 


EXPRN 11/23/1732_TCO PAGE 4 


BIRAE XP s 


FINE 
RNID 


STATEMENT ASM 9 


cST TGN_SF 


BROT TONsr 
(tHe bib 
is ft. Bay 

a 


5D 127 CHAR IN STRING 
5 Ib int TAL ize CHAR COUNT 
I 


FOSTRING OVER WITH NO GUNTE IMAGES 


PUL 


ny 
34 


STRING sia 
Fa 0 ae AX : - 

SO PAP +L SPAKE CPIWAL QUOTE WILL Go) THERE) 
SL fe > PAGINA MG OF STR EMG 

3(¢5P) %-> BEGINNING OF SPACE FOR COPY 


ihe‘ Lil: 

Ak NZsLETS : 
LID fia CHL) 

YNe HL 

cr ce 


> REGTIMING OF STRING, BC = LENGTH + 1 

FE AFTER TERMINATING GUOTES 

a LENGTH 

SHER WH Me STRING REOULT, BO = LENGTH, (CH ADT) -> 

i NEXT CHAR, TO RESET BIT NO OF (FLAGS), STACK STRING IF 
RUNNIN & GO OFF TO Loc FOR OPERATOR. 


SHE 
3 OCH LATITY 


LM HL, FLAGS 
Ris Nils iL) 

WET IME Ts th) ae 

GALL NekgiTR 9 STACK STTANG IF EXECUTING 


“AP LES 


“TON 


SERACKETED Csr’ 


Je LENO 


CALL INie ry. 
AR Za LRM 


: TS A MERSENN EE, & 78 
ie ie Rukh Tnibotleat Ba 4 POue S 
E Pie THE CURRENT ONE . (LESS 
a * Teor 2 THE NEXT ONE 7 Pa 
| ae erin BE: TONE “RATHER FAS ER IN INTEGER ARITHMETIC +H» 


Lu Lc 


1) 


SE RTC CON 
DEFE Abad 


a i Ociaaad ty EVALUATOR 


are =X 11/23/1962_TCC FAGE 5 
i CobE MH SIMT SOURCE & 5 


ioc 34 LITERAL © $75 = .94 ® Zu47 
ooo ie Ltr} é 
O10E 16H. : 
OOF i TIMES : as se! 
o1Ly LITERAL 565537 = .G0008 # SHH 7 
OLltd SOM 
atis AS 
OVls i) 
0114 ie 2 
Olis Ot ane 
116 vy I 
117 GAO 
O11 al é41 ii 
Olly Os 642 
WIA ; : 64:3 
Olle cere 4aqq 
GLC © Choooo X 445 
OLLF ED437465¢: E44 . ree th fo *. 
O1le3 7E £47 $A t= OFFSET EXPONENT OF RESULT 
Ols4 AZ 643 : 
O1S3 26 é JR Zs LAME s1F pe neo 13. a 
Ml27 0 ‘ SUB 14 sELSE DIVInE E RESULT: By" 2HK1G BY. DOCTORING EXPONENT ° 
2 Lu ese 7A 


O1S6 CU3500 R 
OLSF asad 


iPI/2 , 
PDOCTOR EXPOMENT TO CHANGE PI/2 TO PI 


O13 34 


4 # 
O135 E7 
136 Cac 


LPI: 


dotaby 


INEEYS. 


i 


FLINKY: “SHERE TO PROCESS 


665 sIF THE NEXT AR TS “8, THEN COUNTS AS THE SINGLE (NUMBER) 
£44 ‘ STRING OPERATOR aap THE ARGUMENT’ TS A STREAM NO. 
E47 ITHERWI SE » INEFEY$ 15 A NILADIC GFERATOR. 
663 4+ CINEEY.OR, Tene: 4) 
GED 
&70 
Ro &71 : 
TZ HERE FOR STRAIGHT INKEYS. 
E73 §NB OTHE ACTION AT RUN TIME Is NIFFERENT FROM THAT GF INKEY$# 
&74 3 Hey A STREAM USING THE KEYEOARD. INKEY$# CAN CNLY READ A 
; &75 §__ GIVEN KEY DEPRESSION GNCE, 
O142 3 474 LI HL» FLAGS 
o145 HE, 677 RES NG, (HL) 
O147 | CVE 478 BIT INTPT, (HL). 
QO14y BaF 479 WR Zy LEYS 
O146 CoHooag X 4&0 CALL E_SCAN 
OQ14E = GEOG by LO C0 
O10 ZOLR 4: JR NZ LFY4 . 
O1f2 CHOOO0 X : CALL FBASE 
O15 Bode 4 JR ONC LFYS 
O1S7 15 4 DEC LD i t= -1 
O1S9 SF & LU ELA 
O1Sy Choo X bi c the - CHCODE 
O1Sc FS . 63 PUSH AF 
Qist O10100 429 Lo ECs 


EXPRESSION EVALUATOR EXPRN 11/23/1922_TCR FAGE & 


Loc 6 OB CODE M STMT SOURCE STATEMENT : . ASM 3.9 
670 RET COPYLP 
O160 FZ - BRST COPYUP |. 
Q1é1 Fi A: POF AF 3 
O12 iz: LD (DE).A 
0163 QOEOL LO Ct 
O165 OGQQ fl BO 
O17 CHOW X CALL PSHETR 
O16Q O31702 °K JF LES 
160 CDZ700 ET. ; 
7 CASAOO RK .SCRN PIF EXECUTING 
Q1L73 : $ 
O174 a) 
177 K KET ‘ 
OU7A R P_ATTR $s 1F RUNNING 
o170 7 3 
O17E & 
o1s0 Cb2700  K “ET ; 
O183 C4yo0d xX PNT 
O186 E77. 5 
0187 1o3F ats 
A, 
713 LESL: SHERE FOR OFERAND NOT BEGINNING WITH CHAR IN GPDTAB 
714 7A = CHAR 
xX 7f5 pier ALNOM? 
714 4 SUNLESS CHARGE TER ALE RAMUMERTS 
ae EH AY sHERE IF LETTER OF DIGIT 
RO 7iy LES2: ; SHERE TF DIGIT OR DECIMAL POINT 
720 31F RUNNING 
x 72h 
i 722 [ 
OLA DF xe. IG 
ah 723 LO kD, NOSTZE4 
X 7z4 CALL INSERT 
7 ING Ht 
7 Lb HE). SLUG 
7 If ae 
7 EX DE, 
44, 7 Lo ext STENAT) 
AVY 7 Lo oy NOS1ZE 
ab 731 ang A. 
All 73: SE HL» Bal 
fale ee Lo CETENKT) + HL 
: é 7 LOK 
OLBS Ek » 7 EX OG, HL 
O14 2h 7 Dec HL 
OLES CDOS xX. 7 CALL NOLL 
Lis 1S0E g AK LES4 
7 RST IGNOSP sHL oe (CHADD) 
O1LBA i R&T TGNSP , Earre 
741° LESSS: ING HL 3NE CAN’T USE NXT_LIS HERE BECAUSE IT IGNORES SLUG 
742 LO A» (HL) 
TAS CP SL 
744 JK NZ. LE 
745 TNO HL 
X 74AL CALL STk. 
» 74 


LD (CH fifi) » HL 


et ee ree tere 


EXPRESSION EVALUATOR 


EXPRP 
Loc OBI Cope M STMT SOURCE STATEMENT 


FOCEOIFS 
114 


COHOOOd 
poneve 
C 


PC oK OK 


a4 


O1bBOF 
FELD 


3 E7 
4 C30400 RK 


NINN RI 


LER4: 


LES4&: 


LE4: . 


LE4z2: 


LE425: 


LEds 


11/23/1782 700 


SET NO. CIY+FLAGS-Y) 3 INMICATE NUMERICAL EXPRESSION 


alk LESS 
Pe 
GHERE JF LETTER? Look FOR VARTLARLE 
iNE THIS is THE chi LY PLACE WHERE feet OF FINDON CAN INVOKE 
3. FARAM eae SEARCHES FOR A USER-GEFINED FONE TI En 
. ee PARAMETER) 
CALL FINILN 
JP C,ERRZ 31F RUNMING & VARTABLE NOT FOUND 
tf f : 31F ARRAY OR STRING CUNLESS FUNCTION PARAMETER) 
ASSERT 7 eos . 
COND . CINTP : 
ERE CR mA), AND. CINTPT=7) 
END 
CE OmOH 
JR ColLeso PUNLESS re TYFE AT RUM TIME 
INC HL sHL. 2-> VALUE 
CALL STEM 
JR LES? 


Aue OPERATION Orr ‘iy THE eae Fon ine 
‘ ITIGN CONE, WITH B 7 & 1OW NUMERIC 
$ RESULT, FIT 4 LET TO SHOW NUMERIC TREGTI PLPERANT. 


SLOOEING FOR MOMADTC OF TR. ASSUMED THETR TORENS ARE, IN A 
; GROUP FROM LOLMON TO HI-MOM (EXCLUDING —, VALS & NOT), 
“39 STARTING WITH THE CSTRING) NUMBER CONES, THEN THE (NUMBER 
s NUMBER QNES (LONOMG TO HINGMG), & THEN THE (NUMBER) STRING _ 
$ Sen NOT IMMEDIATELY FOLLOWS THEM, VAL4 IMMEDTATELY PRECEDES 
3 
sCA -~ FOR INE TANCE - CNUMBER) STRING OPERATION _ Ts ONE ee 
3 OPFERAND IS A NUMBER, & WHOSE RESULT I5 A STRING 
LD Bo, ea 254+ (MEGATE. OR. OCOH) SPRIORITY %, OPN CODE FOR NENADIC: MINUS 


cP MIM 
Z GIF NOMADIC MINUS 


sIF VALS 
HIE MONADTE 


3IN WHAT FOLLOWS, 
s CALCULATOR IN: 


OPTRS . 
SPRIORITY 4. OPERATION CODE FOR NOT 


F NOT 

Fo o> NOMADIC OFTRS. 

JORY HIGH PRIGRITY 

s= OPERATION Lane, WITH TOP 2 BITS SET. 


RANKL Hee sf NUMFALR 
OPERAND 
MT te A NUMBER 


d te FOuUNn. 
tC = OPERATION COTE y 


(CHADD) -> CFTR. 


HERE WHEN HAVE GOT OPTS LOOKING FOR OFR. ASSUMES HYANIC 
OPTRS ARE >.<, 52 ta~7 Hy NA BLOCK, & ##,0R,AND, =,>5,<> 
IN A LATER BLOCK. 


3 
3 
3 


EXPRESSION EVALUATOR _ |. EXFRN 11/23/19732_TCC PAGE  & 
Low Ob CODE NM. STMNT SOURCE STATEMENT - AEM 5.9 
. § (CHADD) -> CHAR BEING CHECKED 
RST IGN Sr , 
Lit bn e T IGM 
FEZ . S10 LE60S: CP BRA 
200K S11 J OMNZ, LEGOS el A SLICE 
FOCBOL7S6 Bie HIT hihe (1¥- ‘Y+FLAGS ) ; 
2017 . B13 JR NZ» LEG}2 (ACTUALLY A SYNTAX ERROR) IF NO. CPERAND 
CLM X 14 CH SLICER 
B15 A 
E7 ~ ; 
13FO B14 ‘ 
G17 
O600 Si LE4OS: ee: 
F Big LO i 


219 AG vg 


LEGESs 


aA 
Lo HL, OP age 


IF OPERATOR NOT FOUND - MUST BE TERMINATOR (B=0) 
C 35 OPERATOR Cope 


BE he : 

LO jo eB + FICK UE PRIORITY — “te 

LB ee SNOW BD SHOWS CURRENT OPR, DE JOP OPR ON STACK 
1 at 

cr 

vik CLES 3 TF NEW OCR BINDS TIGHTER THAN OLD 

AND A | sELSE INCL IRPORATE CREE Ix 

lf 2» 1GN-St ;IF FINISHED 

“taf $t 


LL HL» FLAGS 
LO ALE 


CP USK. OF, OCOH 


Fai Mz yb a) 
IT 
SREFPLACE NUMERIC WSR BY STRING USR 
3 EVALUATE? 
3 > NO 
3 - YES 


POPERATION CODE WILL GO INTO (BREG) 


LDA | + HERE IF CHECKING SYNTAX 


MeiverLans-¥) 


OF FN DPTFFERENT FROM REGD, 


mt 
"NE ENNELR 


3 IF TYPE 
Pur LE 1 HERE ON RETURN FROM EVALUATION 
G HL» FLAG : 
ERY hide (HL) 
BIT 7,E 
JR NZ, LEZ35 31F RESULT TS NUMERIC 
RES NG, (HL) 
Por Bt 


JR - LEGS $ SEE IF WANT To INCORPORATE MORE FREFIXES 


a. 


an 
ae} 


. 


EXE “RES 
Li 


SION EVALUATOR 
QE 


Oh. FG Mb Th : 
Tt cit 


eps 
oF 


es 
a 
C 
< 
C 
bt 
“~ 
C 


Li 
F 
b 
A 
4 
F 
4 
E 
4 
Aa] 


ru 


NOMA 


Tht 


Me TU os 


Ce NSU DeNe 


DIM 


CODE M 


STMT. SOURCE ¢ 


ot 


wt 
INNY 
.= 


an 
INESININGNS 
NERD Lae Se 


WEE 


ONCE CME 


sided cee 
= 


fed 
4 
SO 

Parte] 


PeRtenty 


EXFth AI/S3/1982_ 100: FAGE 7 
STATEMENT . ASM S.9 
LE&s s HERE If pel OPR BINDS TIGHTERS WE IDENTIFY IT USING ITS 
-,, «. | LEFT OFERAND, 
FUSH DE F ERERPACE FREFIX ; % 
Lo A, 
BIT NO, CIY+FLAGS- 
AR NZ LESS : EFT OFM IS pe RIC: (THEN RT oO CPN & RESULT 
AND 3FH ; ET TO Two BITS / BOTH NUMERIC) « 
AD ALB 5 i. OF STRING CPNS: pAND msde Coda da aat, 
Lo CA 5 ELSE SHIFT CODES 7-E To F-94 
CP AND + SE RY UML. Ess STRING EBN 
JKONZ LEGS $s UINL STRING AND, 
SET 6.0 NUMER TC RIGHT CFERAND 
a iN LE tid, 
LES2s AR Oak LOG? sWHENCE TO SYNERR (NOTE ~ NZ HERE) 
cP ADL-+i3 2 a. 
JR Za LES $IF STRING + 
7 SET 7.0: PNUMER IC: RESULT 
LES4s PUSH Bit . § MAKE NEW PREFIX 
RST NXT:15 : 
KET NXTLIS . o as 
AIP LE 7 NOW GO LOOK FOR RIGHT CPERAND 
OF _TAB: STALLE CF Trey LON CONES, 
SASSUMES: (1) THE CODES FOR <=, >=, <3, <> > AND = ARE 
3 CHNSECUT TUES IN THAT ORDER, & 
3 (11) THE TOKENS FOR OR, AND, <=, >= AND <> ARE CONSECUTIVE 
i IN THAT ORDER, 
DEB -t7 
DEF ADD. GR. Oto 
DEFER *--* . 
DEFER SUB. CR. OCOH 
DEFER “*? . 
DEFE TIMES. OR. OCOH 
DEFER “/* 
DEF Es DIY. OR. OCOH 
DEFT 
HEF ES F ER. On, OOH 
R.OCOH 
+3 
Sah OOH 
4. G7~1. 0K. OCOH 
— = 
GOR. OR. OCOH 
BOR TE +L 
ZF ER pie ORs OC OH 
FRITAE: EGU hh “OCOH-SUB 3 PRIGRITY CODE TABLE 
1G s DYADIC 
: & 3 
fie BS. 3 / 
BEF ié 5 HE 
NEF 2 1 OR 
DEFER 3 3 AND 
DEFB S $s 


EAFRESSIUN EVALUATOR 2 EXFRN 11/23/1982 TOC PAGE 10 
Loc Of) CODE M STMT SOURCE STATEMENT : ASM 3.9 

asi 927 DEFE S 3 2S 

OS 930 DEFL 3 <> 

OS PSl DEFE & a 

aS 32 CEFR S < 

OS P33 DEFB 3 5, = 

04 P34 DEFB 4 3+ 


a. 


pcs ee ee 


EXPRESSION EVALUATOR ==. EXPRN A1/23/1982_ 100 PAGE 11 
Lio OB CODE M STMT SOURCE STATEMENT AEM S.? 
339 #EJECT 
ae} ' 
“937° LFNO: FPN LETTER € 1% 9 ¢ £ EXFRN C . EXPRN J# 7 ) 
ae o . SPRESERVES (OEFADD) 
CUS500 5 CALL INTFT? 
2035 o JFONZ,LFNG fe 7 oe 7 ; @ 
1 SHERE TO CHECK THE SYNTAX OF A USER-DEFINED FUNCTION CALL - 
2 2 RST NXT_IS 
E7 3 RST NXTLWTES e 
Chaooa x 3 CALL ALPHA? . 
D20000 x 4 WIP ONE, 2 NERR 
a8 245 RST NKTUGS 
E? RET NXTLIS A 
DEL FE24 Pa . ‘ ; 
O2b1 FS P47 $Z FOR STRING, NZ FOR. NUMBER, 
O2b2 2001 PAS SIF NUMERIC FUNCTIGN 
. WAS SSRIP OVER “$~° 
E? 
FESS y : 
e012 * SWHENCE TG SYNERR 
5 67 
Owls FEZ? 


AR Z:LFN32 STF ONG ACTUAL PARAMETERS 
LFN2ZS: jHERE WHEN EXPECTING ACTIAL FARAMETER AT CURRENT CHAR. 
‘ 242P) HAS A FLAGS BYTE SHOWING Z FOR STRING TYPE RESULT. 


ea i) 
o200 as10 


OZNE CHOGD — ea te 
be oe - G 
i An Z,LFN: 
WNTLI! 
Ey ST NXT_IS 
‘oes 262 JR LENZS | 
Yo3 * 
FEZ) 964 LENS! | CP age | 
CA0a0G X 9645 LFENS1: uIP NZ, SYbeatk : 
266 LFNSS? RST NXT_IS | 
EY <ST NXT_TS 
513 LO HL» FLAGS | ' 
Zt RES No, CHL) 
POP AF 


3Z FOR STRING TYPE RESULT 
| 


35 
_ SET NG, (HL) 
LFENSS: OP LES | . 
LENG: SHERE TO EXECUTE INER FUNCTION CALL. WE MUST 

(1) FIND CORRESPO NEF STATEME 
3(11) EVALUATE act TERS, & PUT THEIR VALUES IN THE 
: SLUGS BY THE FORMAL PARANETERS, CHECKING THE TYPES. FOR 
; STRING PARAMETERS, WE ASSIIME THAT THE STRINGS THEMSELVES 
; (WHICH ARE MERELY POINTED TO BY THE VALUES IN THE SLUGS 
; HOONOT MOVE WHILE THE FUNCTION 1S BEING EVALUATED. 

Rar eT He ape a 

ie i oe o) { 

AND TLOULL11B $A t= NAME GF FUNCTION, IN UPPER Cage 

? 4 . 

RST NXT_IS 

RST NXTLIS 

SUB # 3A t= 0 FOR ie FUNCTION, *(°-"$" FOR NUMERIC 

WJIRNZ> LENS 31F NUMERIC 

RST NXT_IS H(CHLADE) 2-3 (7) 

OBO4 RET NXTLIS 


| 
{ 


on 


realy 


ram 


EXPRESS TON EVALUA' re rR 
Loc 


~, 
te’ 


ih gomed 


mia Goes 
fee eh eg 
oN 


SQN THe Dw 


Ob CODE M ¢ 


é i E00 
Eboooo 
ut 
2002 


2008 
CHbOOS 
Ué24 
Ee’ 
2800 


CoOROOS 


R 


R 


POONER OSES 


o 
Da 


1 AC 


q 


pee fb ta free mde fn Piet Goth et 
i 


o 
= 


a tht 


Tele SDs 
SHEE NT ay 


ay 
1050 


EX 
SINT SOURCE ST At i re NENT 
LENS: . 


LFNS1: 


ERRFs 


LFNSzs 


LENS7s 


LFNG: 


LFNG&Ze 


11/23/1982 TCO 


RST NXT_IS SNOVE (CHADD) FAS 
Bk Pals 1S ts 


HL. 
Lo Th CPR) 


HERE TO LOGE FOR NEXT BEF STATEMENT. 

HL ~-> A PLACE THAT SEIF, CAN SEARCH FROM 

4 = LETTER (UPPER CASE) FOR NAME CIF FUNCTION 

© FOR STRING VALUER RESULT, “(°~"$" FOR NUMERTC 


3(SP) -> CHAR AFTER “IN ACTUAL PARAMETERS : 
Pale PEP LER. -TK wb t= 0, E te ner TK ‘ ‘ 
Ei : i 


! 


IR NCS LENS 31F A DEF STATEMENT FOUND 

RST ERROR SERROR Py FUNCTION DEFINITION NOT FOUND 
RET ERROR 

LEFE SRE" Aaray 


Pts HF 3 (SF) in? DE 
CALL NXT iHL t-> NAME Foe Funericn WHOSE DEFN WE*VE JUST FOUND 
ANG 116111116 3A t= NAME IN CAPT ALS 
JK NZ) LENS 31F NANE WRONG 
CALL NXT_HL 
aaa 5A 72 0 FOR STRING, “(*-*$" FOR NUMERIC 
dR 7. LENG LTVFE RIGHT, 20 CEP INITION FONT 
THERE cha Mag STATEMENT: NOT THE RIGHT CNE. 
3(SF) -> DEF 
#(3P+2) ->3 1ST CHAR PAST ¢(° IN ACTUAL PARAMETERS 
i B= NAME (CAPS), © = O-OR *(¢-“$- 
POP WL 
DEC HL 
Lo DE, 200M .30 i= 2, E ts Oo 
PUSH EC E 
CALL sunt ily SHL t-> NL OR “3° AT END GF DEF STATEMENT 
Cafe : 
JR LENS 4 ISTRY ANOTHER DEF STATEMENT 
HERE WHEN DER TNITION FOUND & WE WANT TO EVALUATE THE 
3 FARAMETERS 
ie a CHAR 6 AFTER NAME LETTER IN DEFINITION (“¢"° OR “¢") 
4 (SP) ats CAN FORGET : 
dyn + (SP+2) = OLD (CHADD), —> CHAR AFTER “(" IN ACTUAL PARAMETERS 
af 


eb. va, »NXTLHL SIF STRING - HL s-2 -(* IN DEFINITION 


Por De 
ER CCHUADD) . GE 

ALL NXT : . 
PUSH HL 9CDP) t= HL a-> CHAR AFTER °(° IN DEFINITICN 
ee 
AR Za LFIN7 SIF NO FORMAL. Boe ene 

S HERE WITH us -> LETTER OF A FORMAL PARAMETER, 

ea 3 (CHUADD) - ChRREEPONIING ACTUAL PARAMETER 


LO Ay CHIL) 

Cr SLUG 

Li fd. SHL. Nw : 

Specie FNG4 SIF NUMERIC FARAMETER 
4 

CALL NXT_HL fHL t-b “ge 


2: 


et 


IN EVALUATOR EX 11/23/1982_TCC FAGE 13. 
4 CODE M STMT SOURCE STATEMENT AIM S. 


Fhe HL 
0,0 : 
hie HL . . , 
RE WITH HL -2 157 DATA BYTE OF A SLUG 
TNO OF D SHOWS TYFE OF FORMAL PARAMET 
FP) -> CHAR AFTER 7¢7 TN DEF INITICN (FOR (DEFADDD) ), 


SIU 
Es 


PUSH HL 
bs FUSH De 

COOOO . oR CALL EXFPRM 

Fi FOF AF 

FLAG ya XOR (1TY-Y+FLAGS) 

64 2 AND 2. hb. NCI ; 

. ih NZ» ERC VIF ACTUAL PARAMETER HAS WRONG TYPE 


tDE 2-3 1ST DATA BYTE OF SLUG 


Th hI 


TNE CARRY WAS CLEAR. FL r=> VALUE ON CALCTR STACK. 


. GEC HL ~ i ae 2T DATA BYTE OF Stig we? 
CALL NXT LHL fHL 2-> OR“) IN FORMAL PARAMETERS 
C 
puch’ ta 7 sIF NG MORE FORMAL. FARAMETERS: 
‘= . e 
RST IGN. =e 
Ber! IGN 
IK NZ, ERRG STF TOO FEW ACTUAL FARAMETERS 
RST NXT_15 S(CHUADD) &-> NEXT ACTUAL FARAMETER 
RST NXTLIS 
PoP Hi 
CALL NXT_HL ISETP HL OVER < 
IR LENZ2 “SFOR NEXT FORMAL. “PARAMETER ; : 
LFN7# ‘i ee Ta EVALUATE RE SAIL. T WHEN NO MORE. FORMAL PARAMETERS, 
HL. -> “>? AFTER & FORMAL PARAMETER 
(CHADD) —" ">" AFTER ACTUAL PARANETERS 
(SP) -> CHAR AFTER “¢(* IN FORMAL FARAMETERS 
OY io 
poet 
JR Za LEN7E TOO MANY ACTUAL PARAMETERS 
ERR: ZR ff, PARAMETER ERROR (WRONG TYFE OR WRONG ae 
DEFE “tie~“Av +9 
LFN72: = CHAR AFTER “)° IN FORMALS (FOR (DEFALIE) ) 
> “)" AFTER FORMALS oan 
1 : CHADD) -3 9)? AFTER ACTUALS 
1 POP BE 
114 EX DE, HL iDE t-> “)° AFTER ACTUAL S 
1101 U0 (CH MADE , HL (CHAD) —> “)" AFTER FORMALS 
1102 LO HL, (BEF ADE) 
1103 EX (SP), HL : 
1104 Lo (HEF ALE). HL 
1105 FUSH DE 
1104 SNOW (S oP 42) = agTe (DEF ALI) » 
1107 3 (CEP) “)" AFTER _ACTUALS 
1108 3 (CHA anit) > ye AR TER. FORMAL S 
. 110% RST NXTOUS s$(CHOADND) 3-> 
OBFF E7 : RST NXTUGS 


oa 


EXE lag STON EVALUATOR 
Lis 


OBE 


Ob CODE MN STMT 
1110 
K 


220B5C 


E7 
C3170zZ OR 


The 
De 
SINT BPD me 


Wihdbobopobibibibing 


Ce TIN ho 
oS IT hes 


NXTWHL 


LNL 2s 


- EXPRN 11/23/1982_TCC PAGE 14 
SOURCE STATEMENT ASN S. 9 
RST NXTLIS #(CHADD) :—> Rea Te EXPRN 
RST MXTLIS : 


CALL EXPRI - 
For Hb 

we CHR ADD). HL 
POF Hi 


Li (DEPART) » FL 
RET NATLIS S(CHUADD) &-2 CHAR AFTER “)* OF ACTUAL FARANETERS 


RST NXT_. 1S 
JP LES | 
FING HL (OT LEAST ONCE) UNTIL IT POINTS TG A CHAR >< ~, 
SPRESERVES ECTE 
ASSUMES COMPOSITE CHARS EMBEDED IN PROGRAM HAVE DATA BYTES 
€. a 
SINC HL 
LU Ay CHL) 
CEs Ft 
JR CaLNLS 
RET . 
END 


yey eRe oe eepr cs SG icon eel ie ae eae eek 


ey 


ry 


3 


fe 
U/ 


REAU IDENT, FIND VARIABLE * IDENT V1/S3/1 PESTO PAGE 1 
Loc OBJ. CODE -M STMT SOURCE STATEMENT ASM 5.9 
atist Os IDENT, FIND VARIABLE 
f 
GLOBAL LET, ALFHA?, ALNUM? /DIM, FOPSTR, PSHSTR» SLICER, FIND_N ; re 


GLOBAL GET_EL, PAEDICE 


EXTERNAL INSERT, XT HE : 
EXTERHA HECLEN, HEURES, DEL DE ; 
EXTERNAL SVHEFR, TENG, END? FIX_U,ERR4,ERR2, INTPT? 34 
EXT NXTOHL. ce 5 
EX STK BC, FPZEC, DIGIT? : ; 
EX ML $2 
EXTERNAL RANINC, RCWIM? 7C 


FORMATS GF VARTABLE RECORINS: 
(1) NUMB EA SINGLE LETTER IDENTIFIER: : 
1 EVTE FoR LETTER WITH TOF & a = Of / 


SEVIS FOR VALUE 
(11) NUMBER. LONG. TDENTIFICK: 
BYTE FOR INITIAL LETTER WITH TOP 3 BITS = 101 
BYTE Goch FOR REMAINING CHARS oF NAME, BIT 7 = 1 FOR LAST, BIT 6 
INGUISHES LETTERS FROM DIGITS, BITS = 10 ; 


Nur F 
BYTE Fok ‘NAME TOF 3 BITS = 100 ' ‘ : 
2 EYTES FOR TOTAL LENGTH OF ao & DIMENSION, +1 FOR NUMBER GF DIMS 
4og 1 LYTE, FOR NUNEER OF TINEN SIONS 
4 2 Eye E af FOR DIMENS TONS 
41o 5 CH FOR ELEMENTS. 
411 (IV) chit GL, VAR IALLE s Renae 
412 1 Byte Or ater TOP BS BITS = 111. 
4133 5 3 FOR VALUE 
414 ba] f 
4is § 
414 3 
417 (V) 51 is i 
4le 1 BYTE FOR 6 bere x - = O10 
41? 2 BYTES FOR MUNBE nie JARACTERS ; ' 
42a 1 BYTE EACH F CHARACTERS IN TEX 
: (Vf) CHARA An aye 
1 RYT oe S BRITS = 


08 8 8 ee 8 ST UO Se HD OE UD EO WES WEP SE OE EE OO WE UR OD EE OE UE I OP We HP OD EP wd HO td 


2 8 41 AS ae NLIMECR TARRAY 
1 & Moe DIMENS TONS 
ae Pare 
FOR Te FETE! Couey CADE LETTERS ARE ALL CONVERTED TO LOWER CASE 
CEY BIT 3S, WHICH LEAVES DIGITS UNALTERED). ; 
FIND_N: * (CHO ADD) OVER UREA TE RER 
TS BIT NO OOF (FL Rel He 


IF FOUNT OR ¢ 
ir ARRAY (1.E. 
A SYNTAX, & ARR 


THEN tL 2% 


OE VARTABLE NOT FOUND OR 
RUNNING & VARTABLE 


T_CHAR OF IDENTIFIER IN RECORD IF FOUND (NC), 

har OF IMENTIFIER IN TEXT TF NOT (0), 

CHAR OF NAME WITH BITS S&S & 4 RIGHT, BIT 7 OF 
a Ce ee C GETS BITS O-4 OFF, S&S & 4& RIGHT AS. ABOVE, 
4 aN, 
442 INENTIFTER TS FOUND AS A FORMAL FARAMETER_IN A USER- 
443 EG FUNCTION, THEN THE RETURN FLAGS & HL ARE 
444 ERENT - SEE PARAM, 
445 ALL OF FIND_N FOR WHICH THIS CAN HAPPEN IS THAT AT 
44 N EXPRN. 


READ IDENT, FING VARIABLE IDENT 11/23/1932_TCC PAGE 2 
Lot Ob) CODE M STMT SOURCE STATEMENT , : ASM 3.9 
OOOO FUCBOLFS eet baie? YtFLAGS) sFOR NO. TYPE 
RET TGNLS i 
O04 DE 7 RST IGNSP 
OoOs ChHuROS K CALL ALPHA? . - 
OGO8 C20000 x IP NC, SYNERR 31F DOESN’ T START WITH A LETTER 
QUE S PUSH FL S(SF) i-> JST LETTER : 
QO EA1F . AND 1FH SCONVERT MS BITS TG OO TO MATCH NUMBER ARRAY 
OOOE 4F LO C.A $C s= 15ST CHAR 
hee NXT 
- RST NXTLIS . 7 
baba PUSH HL s(5P) §-> END CHAR IN TEXT 
is) Cr ad 8 
57 Jkt pLENAS $ IF NUMBER ARRAY 
Si “SET 4 O10, TO MATCH STRING oR CHAR ARRAY. : 
5g cp DOLLAR : a 
EC J 2,16N4 14 3 IF STRING GR CHAR ARRAY, _ Ses es 
— 441 Ber Sit $ ELSE O11, TO MATCH 1-CHAR NUMBER GR FOR VARIABLE 
RK 462 CALL ALUM? ; 
AL3 JR ONCLLFNI42 ¢IF I-CHAR NUMERIC VARTABLE 
OG RK 464 LFNI2! CALL ae aerees 
4S JR NCL LEMS t1F NOT ALPHANUMERIC” ; 
Og87 AGL RES 650 $001, TO MATCH HULTICHARACTER NUMBER 
2 ALT RST NXT_IS 
Oe? 7 RST NXTA1S 
OOZA 4e3 HK LFNLS 
_ . 470 LEN14: RET NXT_IS RIP $ 
2 E7 . RST NXTLUS hte P . 
ts Aa 471 RED NO (1Y-Y+FLAGS ) SETRING TYFE 
1 8 =SAaCS 472 LFNI42: LO A, (DEFADD+) 
4 A7 AT3 AND A 
3 ee 474 JK Z,LENLS SUNLESS pag GS aia Gace 
37 X 475 INTRT? 3 NE FUNCT TON TEEN COULD CONTAIN VAL 
A Ro 47é > FAR Re POR FUNCTION meat Laas TF EXECUTING 
477 LFN15: 3 LOOK FOR RECORD AMONG GLOBALS. 
AT EYTE TO MATCH, BUT WITH BIT 7 GFF. 
47° -> 1ST LETTER IN’ PENSE EER. IN TEXT 
i 40 Pee Coon ATEN FIER IN TEXT 
aE P Hee ST AFPROX TO RETURN FLAGS (BIT 7 FoR C, S FOR NZ) 
41 4 71F RUNNING 
04S 4 
Ooda 4 
Oa ‘ 
O04 ‘ if 
CHa : AR teNa2 
470° LFNI7? LO HL (vars) . : 
471 LFNIGS LD A: (HL) i HERE WITH = tee FART) - as * NE ar pec one: 7 
qv AND set 3 (SP) -> NEXT CHAR IN TEXT, AFPROXN TO RETN FLAGS 
oS wlFe rs LFN4 3 OIF RUN OUT OF RECORES Ti TRY" 
B5 474 cp ¢ 
2022 APS wlK NZ, LENS : lie aes 
1 428 SHERE WHEN FOUND RECORD WITH REG 1ST BYTE 
F KR 4 5 IF WAS O10 (STRING) OR 100 GR 110 (ARRAY) 
: ABS $ IF O11 (1-0 ar NUMBER) OR 111 (FOR VARIABLE). 
[4 < SHERE IF 101) (MULTI- Seer TER NUMBER) 
LS Sad + DE -> 2NQ CHAR IN TE 
ES S02 * § (SP) i-> 1ST CHAR_IN RECORD 
23 SQO3 LENZ: INC HI. $ rae 8-> NEXT CHAR IN RECORD 
ays 1A pe LFN22: LOD A, (DE) § A ?= NEXT CHAR IN TEXT 
O62 13 Se INC DE 
O63 FEZO ba) CRs 


mene IDENT, FIND VARIABLE IRENT 11/23/1782..7CC PAGE 


s 
OHS CODE M STMT SOURCE STATEMENT ASM 5.9 
Z5FA S07 JR Z,LFN22 s IGNORE SPACE 
F620 SC OR 001000008 sLETTERS -> LOWER CASE. DIGITS PRESERVED 
BE SOD cP (HL) 
ZF Slo JR Z,LFNZ 
GAO) Sit QR SoH 
BE S42 CP (HL) 
2006 S13 JK NZ,» LENS 
1A. S14 LO A, (DE) 
Cb0G03 R Sis CALL ALNUM? Bote 
SOLS S14 JR ONC LENS FUNLESS RECORD IDENT STRICTLY BEGINS TEXT IDENT 
E1 S17 LEN3s) 9 POP HL es aa 
cS S13 LFNSS: PUSH BC -sHERE TO TRY NEXT RECORD 
CHOON X S19 CALL RECLEN : 
EB Sat EX DE, + 
ny C1 POP BC” 
O07E 1SCE JR LFNLS 
LFN4: Here WHEN VARTABLE ag | FOUND; (SP+2) -> 1ST CHAR IN TEXT, 
eer : (CHADD) -> WHERE * MIGHT BE. 
OOS 
LFN423 sHERE ALSO WHEN CHECKING SYNTA : 
aos : sME :-> 2NO CHAR IN TEXT =, 
R31 1eNcSP 
CF BRA : 
a ae : errs ge foe hee is ‘ 
1 SCHANGE ONLY TF UNSLICED STRING 
aR LENS 
LENS POP DE iD1ECARD Cente re IST CHAR IN RECORD 
LFNS2: co + HERE re NAME FOUN : 
: CARL POINTER TQ ZNO CHAR IN TEXT 
; iDe a> AST CHAR IN TEXT Be kee 
fee s(SP) => 1ST CHAR GF ID. IN RECORD 
DF TN SP 
Oo? L COOAO3 RR LFNS4:- _ALAEIM? 2 
OO74 3003 eager ee 31F NOT ALPHANUMERIC 
ore E7 T NXT_1S 
0077 1eFS : 
LFNS63 sHERE IN ALL CASES WITH (SF) = VALUE FOR HL, B SHOWING FLAGS 
- a H (BIT 7 FOR €, BIT S FOR NZ). 
El FOP Hi one ‘ es white pk 
‘ CH10 KL_B SHERE WITH BIT 7 OF B FOR CARRY, BIT & FOR NZ. 
vO E70 BIT 6,8. 
bOoE cy RET 
PARAM: AGAINST FORMAL 


ist TETTE N 
“Ets CHAR IN MGHE 
AND) o-> CHAR AFTER NAME. 
TER as WITH ET TS 745 = O10 FOR STRING, O11 FOR NO. 
HAR AFTER “(IN FUNCTION DEF. 
LF CLINT nf AMONGST PARAMETERS, THEN RETURNS FROM FIND_N 
2N 
SHR ING. TYPE, THEN VALUE IS GN CALCTR STACK & HL. 1S 


SHED 
IF NO. TYPE THEN HL —-> SLUG 1 BYTE BEFORE THE VALLE. 
IF pits NOT FOUND, THEN JUMPS TO LFNIS WITH THE STACKS & C 
UNCHANGED, TO TRY THE GLOBALS,. 


REAL IDENT, FIND VARTABLE ’ IBENT 11/23/1982_TCCO PAGE 4 
Luc OBI CODE M STMT SOURCE STATEMENT SM 3.9 
ltd iNS ony ah agree OF PARAM IS AT RUN-TIME FROM LEé IN 
a iato a eeae he XPRN VIA FINDLN. 
OOFE ZAOBSC 270 LD HL, ¢ (HEFARD) 
OOAZ 7E . 271 LD A,(H 
OOAS FEZ?_ S72 cP“)? ¥ a 
OVAS  CASLOO R S73 AP Zs LFNIS if NOG PARAMETERS TO SEARCH 
ee cig S74 LPM2: SHERE TO CHECK PARAMETER? HL -> LETTER 
OAS = 7E S75 LD As (HL) i : 
QOAP F460 74 OR OL1L000008 tBITS 745 :=.011, TO MATCH CTF NO. 
QOAB 47 577 LO EA : 
OOA = ZR 573 ‘ING HL - 
OOAD 7E S79 LO Ay (HL) : 
OORE FEQOE ) CP SLUG 
OOO 2o07 . JR Z>LPMS sIF NUMERIC FARAMETER 
WEE 26 Z DEC H ; 
: CDHOQOAG X 3 CALL NXT HL wHL &-> “#" 
HOBS 23 0 ; ING HL 
OoL7 CBAS RES 3B 3TO MATCH C IF STRING 
QO key 73 LPM33 LIV AB . 
OOBA Be? CPC : 
QOL ‘ZaILS JR Zo LPMS MATCH . 
‘ sHERE To’ TRY NEXT PARAMETER 
Ah. —> SLUG OF LAST GONE 
SSERT NOSTZE=S 
Carb Nat (NOSTZE=5) 
ERROR IN ASSERTION “NCSI ZE=Si 
ENDC 
» OOEL INC HL 
IEE ING HL 
ING HL 
ING HL 
ING HL SHI t-> LAS ay LATA BYTE OF SLUG 
At NXT HL sHL t-> “1° GR “)% 
“PZ, ‘131F NONE OF THE PARAMETERS MATCH — TRY GILGBALS 
CALL xr il, ; . 
AR LPr STRY ANOTHER FARAMETER 
LEMS: ove sHERE WHEN MATCH FOUND WITH HL -> SLUG 
4 
ee Nz, pePne t1F NUMBER - DON’T STACK 
Lo ries CSTENXT) 
CALL RANNG 
ove EX fee Hi. 
o Lo STRNXT) + HL 
1) LFNG: FOP. Liz 
2 POP LE 
3 xOR A 
4 INC A s3ET Ni) NZ 
> RET ;FROM FINDLN 
‘ 7 GETLELt FINDS STRI vING o EN RUALTER” 4 
Pay 3 “4 al wt o “4 of 
3 eee eee nr RETURN ERE FINEON 
) 3IF RUNNING, HL -> TENTIFIER. IN RECORD, & ON BETH 
5 (1) TE NG. TYPE, tl -> 1 BYTE rays RESU 
$ (11) TF STRING TYFE, BIY 1 OF ri 3X) = eS FOR STRING, 1 FOR 
5 CHAR ae a VALUE TS ON ALCTR & ACK. 
: SSMASHES A“F* “DE 
AF. XOR A 
47 Lo BA. 
CE79 427 BIT 7, : ; 7 2 
2048 b2e IR NZ» ARYELT SIF CHECKING SYNTAX (MUST BE ARRAY, NOT STRING) 


we 


oO 


- 


®eeees8keéc. 


READ IDENT» FIND YARTABLE IDEN 11/23/1982_TCC PAGE 3 
Lac O61 CODE M STMT SOURCE STATEMENT ASM 5.9 
QOOEA CB7E 629 BIT 7,(HL) : 
OOEC = 200E 620 JR _ONZ,LGLS SIF ARRAY 
631 ASSERT FLEX=0 ‘ 
COND . NOT. (FLEX=0) 
errer IN ASSERTION FLEX=0 
MLL 
BC INC A SNOT FROCRUSTEAN ASSIGNMENT 
23 LGL4ASs ING HL : 
4E LOO) (HL) 
23 INC Ft. 
4é LO BAHL) 
z: INS HL 
cnhooasz K CALL PSHSTR 
ad ee . RST 1G 
OOFS be RET IGNLS : 
OOFF C3P701L #4 IP LAT47 FOR SLICING 
, 42 
7 3 LGLSs SARRAY, HL -> VARIABLE, © = MAME, DE -> (¢ OR CHAR AFTER % 
OORT: 4 ING HL : 
QOF LD a TNO HL b : 
OOFE 4 INC HL _ : 
OOF F 7 LT Ey (HL) 1B] NO. OF SUBSCRIPTS 
OLOQ 3 BIT 4, 
O102 ? AR Z LOLS sIF NO. ARRAY 
O14. a DEC & . 
Oo10s JR Za LoL 4s 3IF 1-DIMENSIGNAL CHAR ARRAY 
O107 r EX DEL . : 
wie ie 653 REY IGN. 
0103 RST IGN ep 
oll? as CF BRA 
QLOR 2061 ‘ WR NZ. ERR #MULTI-BIML CHAR ARRAY, NO ¢ 
O1gy Ek é 2 EX DE, Hi 
Q10E Eb é LGLG: EX DE. HL 
O10F 1a24 ‘ IR ARVELT : 
O11. ES 660 LATIE | PUSH HL jBEGINNING GF ARYELT (NOT ENTRY POINT) 
ee 641 RST 1GN! SP 
O112 i RET IGN SF 
OLlis 642 POP HL 
O114 443 CF COMMA | 
O11G baad AR Za LATI? 
O11 E45 BIT 72 
OLA bidsl, AR Zr ERRS SONG NO. OF SUBSCRIPTS 
Ole 647 BIT 6.0 ELSE CHECKING SYNTAX 
OLE & ce ri pas IF CHA RK ARRAY 
ne Bens é. c 
a “470 JIKONZ, LATS I(WHENCE TO SYNERR) SYNTAX ERROR 
&71 Bet NX i ; ; i 
“Vz 
£73 a. 
&74 LATASs : _ antic. 
eee SEET POUNDS CHECK FOR EXTRA SLICE 
477 I(WHENCE TO SYNERR) SYNTAX aby ea 7 
4&7 LATA7: $70 POUNCE BACK TRACK & TREAT AS SLICE WITH MISSING 
&79 CHL. 
G30 Lo (CH_ADIN y HL 5 LOWER BOUND 
é 1 JR LAT4S 
heyy 
633 ARYELT: SMOVES (CHADD) PAST AN, eae ELEMENT aa CHAR SLICE 
434 | 30N ENTRY, (CHL ADD) -> © HAS BIT SET TO SHOW CHAR ARRAY. 


“- 


of 


READ IDENT, FIND VAR 11/23/1932. TO0 PAGE é 


iD 


Loc OBI CODE M ST SOURCE STATEMENT AEM 3.7 
4 SIF RUNNING ¢- DE -> NO, OF SURECRIPTS, © “tb S BIT 7 
& § FOR NG. ARR ‘AY, B= NO. OF SUBSCRIPTS, & RETURNS wort HL -> 
66 5 1 BYTE BEFORE VALUE 2 
é 3 FOR CHAR ARRAY, B= NG, OF SUBSCRIPTS - 1, & RETURNS WITH * 
be9 i Ihe O & VALUE “ON CALCULATOR STACK. | : 
670 VIF CHECKING SYNTAX *- B C HAS BIT 7 GON & BITS O ~ 5S OFF. 
G71 Lo HL © SINTTIALIZE ACCUMULATOR 
492 LATAS: PUSH HL 
b93 RET NXT-1S sSKIP ( GR » 
s RST NXT_IS 
&P4 POR HL 
4935 . 
L7G oa 
; oF? SUNLESS CHECKING SYNTAX WITH CHAR ARRAY 
Lev ' 
t 
699 
700 5) FOLLOWS ¢ OR, 
791 
702 ae 370 FOLLOWS ( OR a he 
793 LATZ: E CIF F RUNNING) BC = COUNTER & NAME, DE -> 1 BYTE BEFORE 
208 - XT DIMENSION & HL = ACCUMULATOR. ’ 
703 “Ws 
C 794 F 
i R 707 C ; 
708 =X F 
OA FE ‘ bas EX ;DE := ACCUMULATOR, HL = DIMENSION , 
x Oo fare \ 
. 711 IR sIF SUBSCRIPT ERROR 
s : 712 Dk: 
j RK 713 CA 
3 714 ADIL Hi. Est: 
WLS JAS Pir ae 
i 714 Por 
’ aes : Bt ore fart : . 
i 3 * 
LEQ 712° =LATZ5: ie eager? s(WHENCE TO SYNERR) CVER 256 SUBSCRIFTS AT SYNTAX CHECK 
bse “Oo 3 
W1é3 : BIT : 
BteS < N2; ‘TATA s1F CHAR SLICE 
Ld Aas 3BG s-2 1 BYTE BEFORE ARRAY VALUES 
O16? : 
O16A 
O16C »: SRIGHT NO OF SUBSCRIPTS | 
ee ERR3: SERROR 3, SUBSCRIPT ERROR 
aia j 
DLGF 
LATS: 
O170 E7 
O17 i El 
O1L72Z 11 Q800 
O175 Clason kK 
O17 Qs 
OL7F Re 
LAT4: SEXECUTING CHAR ARRAY. DE ~> IST BEFORE FINAL DIMENSION, 
: s HL TO BE MULTIPLIED BY THE FINAL DIMENS TON TO GIVE OFFSET 
3; ADDRESS OF THE BEGINNING OF THE CHAR SLICE. ‘ = 
3 (CHADD) -> TERMINATOR OF _ THE eae SUBSCRIPT ¢ NOWN FROM 


SYNTAX CHECK TO BE “,°, “TO, OR “)7). 


O17A «CbatOZ Ok CALL GET_DE 


woman aga” 


REAL 
Bs 


OLPS 
O17 
G19? 
O1YB 
OLIF 


bE 
wD 


DLS 
CHEN 


= 
+ 


O1BF 


aca 
oO1cd 


IDENT, FIND VARIABLE IDENT 11/23/1732_TCC FAGE 7 
Of) CONE M STMT SOURCE STATEMENT AEM S.9 
ay ; Ae EX (SP),#IL 
CH420. R. 745 CALL Mu. 
Ci 744 FOP BC 
op 747 ADD HL, BC 
23 743 INC Hi 
42 749 LD BG 
4b 720 LD CLE . _ 
EB . 7S EX CE HL sDE *-> BEGINNING OF CHAR SA ICE 
CUFFOI. RO 752 CALL FSAO : 
: 733 RST IGNUSF 
Cee RST IGNUSP 
FEZ9 754 CP KET | 
zo07 735 JK Zr LATaS 
FEZC . 736 CP COMMA * na Bes oa a . Nites, 
2008 757 LAT4&4: JK NZ, ERRS sLAST SUBSCR. TERMINATED BY TO - TOG FEW SUIESCRIFTS 
COAGOL R750 LAT4S: CALL SLICER : 
759 LAT4é: “RST NXT_IS 
Ev: : ia RST _NXT_IS 
FEZ& 749 LAT47: CF BRA 
ZFS 7é1 JR Zs LAT4AS fiat : : , 
- FPEBOIBé 762 RES NO, (1LY--Y+FLAGS) SSTRING TYFE : ; 
“Ce ae RET 
765 SLICER: sSLICES A STRING. (CHADD) —> cor 1A_ OR BRA IN TEXT. CHECKS 
744: 3 SYNTAX OF SLICER, & IF RUNNING, SLICES STRING ON CALCTR 
767 3 STACK 
7453 $A SLICER CAN BE 
749 5 ) ; 
779 3; OK Nearer N ) 
771 $_ UR CNO.EXPRNI TO CNO.EXPRN] ) ae 7 
772 30M RETURN, Tene ADD) -> ). RESETS BIT NO OF (FLAGS). 
COON — X 773 FU? 
C43FO03R RR zea Poraen SIF EXECUTING 
Ss 
776 we ki 
777 5, FEMPTY SLICER 
77% sORTGIN 
779 
730 
CS 73 sLENGT 
110100 DERAULT LOWER SUBSCRIPT 
DF 
El 7% SLENGTH = DEFAULT UPPER SUBSCRIPT 
FECC 7 
2317 
Fi 7 
peoe R : SGET LOWER SUBSCRIFT 
ba ’ 
SO 7? 
So 721 
ES TPE 
73 
DF : 
E1 724 mus 
F 725 Po 
= TE dK Z ILOOK FOR UPPER SUBSCRIPT 
FEZ: 737 ; CP RET. 
20000 X 773 LSRZ: JP NZ, 5YNERR SSYNTAX ERRCH 
&2 75 LOH, 10 
45 g LU SUPPER SUBSCRIPT = LOWER 
131 b=) wR LERG 


ae 5) ia: 


Cie, 


REAL IDENT, FIND VARIABLE 11/23/1782_TCO PAGE & 
Lac: Ob COE M STMT SOURCE STATEMENT ; Asm 3.9 
OLcr ES LSRSs UE 
OLD E 
Oint E 
Ole F 
Oi Z 
oie  F . 
O1o7 © kK sGET UPPER SUBSCRIPT 
OMA F 
ite rE 
O1 cH 40 
o1bt “ey 
OLDE FE29 ; 
O1EO Z0E6 ;(WHENCE TO) SYNERR) SYNTAX ERROR 
OLEZ Fi LSR4As : 
O1ES Es 
O1E4 1? sHL. 3= NEW ORIGIN 
O1ES sb DEC pL : 
GES Ee EX (Sey Ht 
OLEZ Al rr 
O1ES SB HL» cs sHL t= NEW LENGTH-1 ‘ 
OLEA LO Boo ; 4 : 
OLED JR Cy LsRés SIF HL <0 (THEN SUBSCRIPT ERRORS IGNORED) 
QOleEF INC HL. 
QOLFO AND A oe 9a 
OFA JF M, ERRS 31F SUBSCRIPT ERROR 
O1E4 LO BH : . 
O1FS 7 Lo, 
OLES LERGSs FOP DE - 
OLE7 RES Ni. (1Y-Y+FLAGS) 
QiFB LSRGL8 PALL INTFT? ’ 
OLFE — RET Z s IF CHECKING SYNTAX . 
: FSAOs 5A t= 0 (FIXER LENGTH ASELGNMENT TYPE), THEN FSHSTR 
OLFF eee xoR A 7 
; PSHETRS, SAE abated STRING ONTO CALCULATOR STACK. Taking LENGTH FROM BC, 
: S°ORTGIN FROM DE & ASSIGNMENT TYPE FROM A (SEE POFSTR). 
3 (1.6. STACKS AELCE) 
3 UEDAT ( “NXT)3 HL := NEW CSTENXT). 
3; PRESERVES AF BCE 
. - 3 ETS BIT NG HF (FLAGS). 
200 FOCBOL EZ i RES NO, CY FLAGS) ae 
: FAEDCE: PUSH E 3 PSHSTR, BUT PRESERVES BIT NO OF (FLAGS), 
CS is . ‘ 
q EHOOOO x TALL Rodos 
i Ci For BAS 
ZAGSSC LE HL, CSTENXT) 
77 LI (HLA : 
23 ING HL 
73 LE (HL) E 
P ING HL 
72 LD CHL) oo 
z ING HL 
7) Ly CHL c 
2 INC HL 
70 ee pees 
LO (BTk NXT do HL 
RET ; 
SAGs + SUBSCR A = 0. : 2 a Z o 
3 LIKE SUESCR, BUT INITIALIZES A TO OQ. RETURNS. C IF SUBSCRIPT 
oe s ERROR, 
O21A AF xXOR A 
oe ‘a Pe eet ELS 
we 3 


ra 


eae IDENT, 


INIT DMMb ost 
+ 


Vee MDoUuGedi ec 
g 3 


com: 


SP GST 


Pam ee od 


Cnaood 
cs 
CooOand 
DAQOOO 
Cg 


FIND VARIABLE 
OB CODE M STMT SOURCE 


X 
X 


SUBSCRi 


LSBR4s 
LBS: 


GET_DE: 


MUL s 


IDENT 
STATEMENT 


Ex _ IE HL 
I HL 
a Ey piase 


ai pe tH 
to th, 


5 
CALL INTFY 
RET Z 


» CALL MULT 


JP, ERR 
RET 


11/23/1982 2 TCL FAGE 
ASM 4S. 


EXPRESSION FROM NEXT 
Ga aglits QNSUER IN BC 
HAT IT Us BETWEEN 
PRESERVES ¢ 

Av; HECRENENTS A. 
DEH. 


* CHECKING SYNTAX 


SHOW ERROR 
SUESCRIFT = © 


ni 18 


ESTOREN TO VALUE ON 
ECKEMENTED IF ERROR 


9 


? 

CH 
i) 
& 


ENTRY 


$0 ¢= (DE+2), E t= (DE+)), HL, t= TE+2 


F CHECKING SYNTAX) RETURNS STRATGHT 
LSE, HL #85 DE, , UNSIGNED. PRE SE RY JES 
fd 


VIF CHECKING SYNTAX 


ISING FIX U 
HL. 


AWAY. 
BCDE, 


ERROR 4 IF GVERFLOW 


4 
| 
i 
| | 
ACTION For LET STMT . IDENT 11/23/1922 27S PAGE, 10 


Loc OBS CODEN StpT T SOURCE STATEMENT | ASM S29 
B10 “HEAD ACTION FoR LET STMT | 
#12 Ler; FACTION FOR LET svare ENT. ‘ 
913 ISOURCE 1S oN CALCULATOR | Stary. 
14 SEIT NG OF (FLAGS) SHOWS | TYPE. 
215 BIT UNEND GF CFLAGX) RAGS GESTINATION New FOUND, BIT FLEX 
S14 ; SOFLEXTRLE Lenath: ASSIGNNENT REGWITRED. 
317 HIF DESTN NOT Folin, (DEST) =>" y's7 CHAR GF NAME IN Text. 
#18 SIF _fESTN Povnne 
915 + FOR NUMBERS (DEST) > 4 BEFORE VALUE, 
920 OF FOR STRINGS (HESE} 5 Ware” Be STRLEN) = LENGTH, 
O21 cea BST eceencan FUL & ONG. TYPE, RETURNS WITH HL -> sy BYTE OF VALUE, 
io t 4 ie, 
BIT. LINE “NE, (TY 
ALLTS Ts ALRE ny 
ih fi M CREATE VAR TABLE 
LLTIs . The Bi LINT CHARACTERS IN NAME 
LETi2s Ime Ay 
LUA» CHL) 
IR Zs Let SIGNORE srAcE : 
ak Ne LUT 2s FUNLESS CONTROL. 
By ’ 
“B ett. Tis tIF SIMPLE co INTROL CING. NL) 
a 
lf NE PLUT IS HIF AT OR TAR CONTRO. 
INC HL HIF COLOUR (ETE. ) CONTROL, IGNORE NEXT BYTE 
JK OLLT12 
3Y LLTI2S: CALL AL NUM? 
6250 PAO JRO CLETI 
O272 241 cp boccad 
02374 R $42 JP ZsLOTS SIF STR 
43° LLTiz: HERE TO MAKE Nan” SIMPL LE NUMERIC VARTABLE 
5a4 . FEC = NG. OF BYTES FoR NEW RECORD 
245, LD AG 
vad, LO HL (ET INE) 
WA? BEG WL sHL. 2 -> 30H 
X Sah CALL INSERT 
ay ING Ht. 
6 INC HE 
2 PCSP) f-> OND BYTE cys NEW SPACE 
| HE §-> 18T BYTE OF NEW SPACE 
iB a= NO. CHARS IN A ~ 4 
, IF SINGLE CHAR Nabi E wird = 0 
LLT14s ICOPY ALD CHARS: BUT 137 OF NAME 
Het STGNORE SeAcE cp EOINTROL CHAR (CAN? T ) 
Bee SLETTERS MAKE LOWER CASE, DIGITS UNCHAIGNS 
bey 
B85, 
DAL FFINAL CHAR FLAG 
PET § LAST CHAR OF NAME 
GLE PXOR MASK FOR 1ST GF MANY CHARS (O1xX —> 10X) 
269 LUTASs 
70 ; 
971 iLOWER & UPPER Cases NERGED 
72 HL > 2N0 BYTE AF Ny W RECORD 
973 CALL LETS? 


ACTION FOR LET STNT 
Loc 


Ob) CODE -M STNT SOURCE 


LLT2s 


mr 


OOO 


SEN Ee NT a 


ab 
oh 


eMDoMmYom 


LLTSs 


LLT31s 


oD 
Ep bs he 
BS soe 


=, 


Bim iie 


Mish Tp 


bie 
2 
4 
1s 
% 


SON SUS 


. 
S 
t 


LLT Se 


Pa 


i 
4 
te 


BB 


LLTSE33 


THI ML DIMM SSW OMDMMGMMa aT 


fee tee FS Ce CS 


LLT335 


(rat teeth ets et fete eet Pe pes fat Ge ft: fae es fs fh 
aie aT Tae 


IDENT 
STATEMENT 


PAGE 11 
ASN 5.9 


: sHERE Ta INSERT VALUE OF NUMBER, WITH HL -> BYTE AFTER RECORD 


DEPE ¢ 
BoP He 
ano a’ NOS 17E 
See ihae 2B sHL t-> 1ST BYTE OF SPACE FOR NUMBER 
$s HERE IF EXISTS ALREADY 
BIT NO, (1Y- Y+tPLAGS) 
AR Z,LLTS 3 YF STRING OR CHAR SLI 
LO RE NOSTZE+1 sELSE NUMBER. HL -> 1 BYTE BEFORE VALUE 
ALL HL, Te 
AR LET 
) 7 : 
Y+FLAGX) 7 . 
VIF STRING RATHER THAN CHAR SLICE 
zeae THAT TON 
NAT ICN 
PACE TO COPY SOURCE STRING INTO 


1ST BYTE SPACE 
I LENGTH OF PES TINATION 


sQVERWRITES ASSIGNMENT Ries (NOT NEEDED) GF SOURCE 
sINITIALIZE SPACE TO SPACE 
sHL ¢= LENGTH OF DESTINATION 
sIF DESTINATION LONGER THAN SOURCE 
% SIF SOURCE TS EMPTY 
FOR Git 
Por De 
Por FL : ; 
: + HERE TO WRITE NEW Misr Fo a i) RECORD. DE -> VALUE, 
3 HL -> DESTN, BC = LENE 
EX DE,HL 
b A.B 
oR 
RET 2 sIF BO = a 
Fue ‘HH DE : 
BIR 
PL cP HL 
a ie * tas ¥ v tha ‘ar ‘ 


ACTION FOR LET STMT NT LL/S23/19782_ TCC PAGE 12 
Lac OBS CODE. NM STMT SOURCE ET ATEMENT ASM 5.9 
O2FL Cy RET 
LLT4: : tHERE YF EXISTING STRIN 
oe ns sHL -> 1ST CHAR OF DES STINATION STRING, BC = LENGTH 
Es CEC HL 
2b GEC HE 
2b BE Hb 
7E LI A. (HL) 3A 3= NAME 
ES PUSH HL : 
CS PUSH Et 
chi 4os CALL LLTS2Z 
ep | FOP BID : 
Ei POF Hb. PHL b> OLD RECORE 
(abe) F IN® Bt: 
OG ° ING BC 
OZ INC Et si 8s LENGTH OF OLD RECORD 
Cro0ga JF DELREC 
a ‘LLTS: LO AsLIOLIIIIE «6SHERE FOR NEW STRING 
ZA4I5 : Lf HL, (GEST) . 
. _ AND CHL) SUFFER & LOWER CASES MERGED 
LLUS2s° - SHERE TO CREATE STRING RECORD ca 
Piisu AR 3A = NAME, SOURCE IS ON CALCULATOR STACK 
SFOS CALL Fors 
£ EX DE, oo . 
v2 ALL HL, Bic: 
VES FUSH Eur 
: 0.4 DEC HL SHL f-> LAST BYTE CF SOURCE STRING 
22405C ea ae (DEST) » 2 HL SSAVE HL IN A MOVABLE VARTABLE 
kode C AC. 
67 ING BC 
Ag INC 
ba O69 Lo HL, “(E_LINE). 
7Q. HEC HL : 
Enooao 71 CALL TNs RT ; ST BYTE OF NEW ace 
aioe O72 Lo HL, (DEST) sho -> LAST BYTE OF SOURCE STRING 
7S POP BC sBC ss LENGTH OF SOURCE STRING 
74 PUSH BC 3 
O75 IMC BD sIN CASE RID WAS 
76 LDR sCOrFY TN NEW VALLE & RUBBISH BYTE IN FRONT 
77 EX DE,HL 
INC HL 3 HL, ie eke BYTE OF NEW RECORD f 
FOP BC $B s= LENGTH OF STRING 
LD CHL» B 
DEC HL | 
LO (HL), ec. sWRITE LENGTH IN. 
POP AF ae S 
LLTS7:« sWRITES ae Pee OF NEW NAME. : 
; SENAY He -> 2NK BYTE OF NEW RECORD, A = NAME TG FUT IN 
? ‘= 
3 ON RETURN HL -t SCH. 
DEC HL , : 
LO (HLo.A | 3; WRITE NAME OVER OD 80H 
LO HL, (EL INE) 
DEC HL 
RET 
FOPSTK: sPORS STRING FROM CALCULATOR STACK, LEAVING LENGTH IN BC, 
$ ADORESS IN DE & ASSIGNMENT TYPE (1 = FLEXIBLE,.0 = FIXED) 
3 IN BIT FLEX OF A. 
H (1.E. AEDCBR t= 5 BYTES FROM CALCTR STACK) 
sSUPDATES ¢(STENXT). 


ACTION FOR LET STMT ; IDENT 11/23/1782_TCC 
Loc OBS CODE M STMT SOURCE STATEMENT 


1100 3HL &= NEW (STKNXT). 
; si 1101 _i PRESERVES F 
O33 ZAG5SC 1102 LO HL» (STKNXT) 
242 2k 1103 DEC HL 
O243 ° 44 1104 LOB, (HL) 
O344 2B 1105 CHL 
o345 4E . 1104 LOC, (HL) 
Q346 & 1107 C_HL 
GO247 346 1103 LD DB» (HL) 
@348 2B 1109 EC HL 
O349 SE 14110 LU E. (HL) 
O34A 2B 1111 EC 
o348 JE 1112 Lb A, (HL) 
O34C 22655C , 1113 LU ¢STKNXT) HL 
O34F cy : 1114 RET 


ww 


ey 
‘ 


ON FOR DIM STMT 


OB) CODE M STMT 


1115 

1114 
ted 1117 
CHOOOg R 1116 
C20000 1114 
CLOO0O X 1120 
ZO 1izi 
CHeL . 1ie2 
COE 40d KR 1123 
X 1124 
1125 

112 

i 1 
CNHOROO X tie 
CLO XxX 1bey 
asi 1130 
“ENF Ato 
MG lise 
Cs 1133 
2 1 134 
“EV7 1 135 
2002 134 
Z2E0S 137 
Eb 135 
¥ 13? 
E7 

26FF _ 41140 
CHIAQZ R 1141 
DAGEOL R 1142 
Ed 142 
Cs 144 
24 145 
ES 144 
60 147 
&o is 
Ch4202 RK 4? 
Ek bat) 
ot 


ex 


-, G : 
atINE 


a 


18) 


OOOO xX 


1 


THe See habe bbe Nh 
ao ee See eer 


f= eee ee fs fe hfs ch et eh th Ra fmt ft ft fe emt fab Se fh fh epee eh fh fe fh ph fh fh hp peek ft ft ee pte. 


SINNER RARER RR 


fa 


UF Sisto SeScoN Rahs 


#HEAD 
DIMs 
LOMILs 


LuiMas 


LEM4s 


IDENT ; 
SOURCE STATEMENT 


11/23/1982_TCC PAGE 14 
ASM 5.9 


ACTION FOR DIM STMT 
sACTION FOR DIM STATEMENT. 


CALL FINDGA.N 


IP pe Seen 
‘ALL INT 


IR NZ: LM 
RE 


PALL “CET _EL 
CALL ENE? 


JR CL DM 


Pts: 
CALL RECLEN 
CALL DELREC 


+IF NOT ARKAY 


SIF RUNNING 
FOR GETOEL - NO NONSENSE WITH TOS OR THE LIKE 


SWON’T RETURN 
POOESN’T ALREADY EXIST 
i# DINS SO FAR 
SIF CHAR ARRAY 


IF SUBSCRIPT GUT OF BOUNDS 
Hr) c= # DIMS, L ¢= NAME 


SHE s= PRODUCT GF DIMENSIONS So FAR # 1 GR NOSIZE 


SWHENCE TO SYNERR 


iBot= # DINS, © r= NANE 


NANE. 
‘RIMS + 3 


A 
ST BYTE OF INSERTIGN 


iH e=>. 1ST 
FENTER’ NAME 


AETRON FOR BIM STMT 


IDENT 
OBJ CODE M STMT SOURCE STATEMENT 


11/23/1782..TOC 


Ch 1176 POP BC 
Ob 1177 DEC Bit 
(Es 4178 BEC BC M 
OB 117% DE BC 3B t= LENGTH INC, DIMS 
23 1160 Ne FL 
7i 1131 Lo eae 
23 i ING HL 
70 118 LO (HED B cect ata 
Ch 1is4 FOr Bi 70 += NAME (BIT & SHOWS STRING) 
73 Lies LO A, sA t= # DIMMS 
23 1134 INC HL 
77 1187 Lh (HLA 
&a dics LO HE . 2 
46 . 189 LO LIE 3HL &-> LAST BYTE OF IMZERTICN 
iB 1170 DEC GE 
3600 1171 LD (HL +o 
1iv2 BIT 4 
divs, JK Z> CL EiM7 31F NUMER CTS ARRAY 
1174 LW CHL.” ¢ z 
1i?S  LOM7: FOP BC -3BC ts pene ek RIMS 
1196 ne LOR sINITIALIZE To 
1iv7) LOMe: FOr Be sBC t= A DIM 
Lived LO CHL) 
113? DEC HL 
¢ LD CHL 
Pee Ag 
ALNUM?s WHE THER CHAK IN A ee ALPHANUMER TC 
RY TFF_ALFHANUMERTC 
en $ ALL REGISTERS (EXCEPT F) 
COHOG0G x AL 
3F CF 
ET sIF_A DIGIT 
ALPHA? —_ “fas ALML IM? TO TEST WHETHER ALPHABETIC 
cee A’ 
COF ; 
RET N 31F LESS THAN “A. 
CP LETTER+- Z*+d 
RET f sIF A CAPITAL LETTER 
cp A’ : 
Lik 
RET NC: sIF STRICTLY BETWEEN “Z"° & “A* 
Ret? 


END 


/ 


INPUT /OUTEUT ; TNQUT 11/723/1762_TCC PAGE 1 
Low Ob CODE M STMT SOURCE STATEMENT : ASM 5.9 


#HEALNING INFUT/GUTFUT 
#LIST GN * 


GLOBAL OUTPUT, XEY,STK_A,STK_BC,FRZBC, FFZA, ININT, STEUSN, LODE, STDE_ Uu, STDE_S 
GLOBAL DIGIT? 


EXTERNAL NEXTCH 7BASIC 
EXTERNAL FUTDIG 4 sEDIT 2 
EXTERNAL FUT EC sLIsST ws 
EXTERNAL SYNERR 3 SYNTAX 
EXTERNAL Ft R s IDENT 
EXTERNAL ERRG. > p= T 3 SUMS 
EXTERNAL ARRAY ;STEGUL, TESTO CALC 
STRUSNE FETACK LINE TGNET NUMBER, 
; INPUTS A FLOATING POINT NUMBER ONTO 
3 THE CALCULATOR STACK See uid DEVICE USED BY GETCH. 
. SFLAGS SYNTAX ERROR IF THER 
3 (I) A aye ae CHINE Bir. NEITHER INTEGER NOR FRACTIONAL 
3 
3) OR (17) AN te FOR EXPONENT PART, BUT NO EXPONENT AFTER IT. 
3 ON ENTRY, A = BE RISE CHARACTER, EITHER A FOINT OR A DIGIT. 
3 FR RVES BE: Me. 
; 3M ES ACDEHL REC DCE 
: sou CALCULATOR MEMORY” Os MAXIMUM STACK DEPTH = 4. 
aod FED4 CP BINATE 
Ong zo? JK NZ, LENZ . 
: ; ; HERE IF BIN FOLLOWED BY HINARY INTEGER. 
; . ec e _, . 3OVERFLOW ABGRT IF MORE THAN 14 SIGNIFICANT BITS. 
OO04 110000 © LO DE, SINITIALIZE ACCUMULATOR 
; LSNiz:s RST NXT_IS 
O07 E7 RST NXT_LIS 
De31 SUE TL we 
s LEGO ALG A,O° 
GOO: S008 uk 'NZ>L-SN14 SIF TERMINATOR (ANYTHING OTHER THAN “0% GR 71°) 
OOOE Eb EEX DE, HL tH t= ACCUMULATOR 
COWIE SF CCF SCARRY SET FO 
OO10 EbeA | ALC HL. HL sSHIFT IN MEW ET 
OoLs 4 JP C2E RRS 31F 17 IA GNIELCANT BITS. 
OOLS EX DE. HL 
OO’ AR LENE 
Oo LENI4: LO Gf 
Ooly Lo Die 
OoOLA R JP STE_BC 
Oo1o LENZ: CF POINT 
QOLF : WR Z> LSS sI1F NOTHING BEFORE POINT 
pigs t RK CALL ININT 
OO24 cp POTt . 
Hose wh WZ2 1k. 71F NO FRACTIONAL FOINT 
RST NKG 
RST NXT. 
RK CALL DIG > a 
7 JR OCLLI 71F FRACTIONAL FART HAS POINT BUT NO DIGITS 
ey JR LSN4 sFOR FRACTIONAL PART 
442 RST NXT_IS 
: RST NAT_LIS_ 
RK 443 : CALL DIGIT? 
HAGOOO X 444 LSNSS: JP C,SYNERRK 


sIF POINT BUT NO INTEGER OR FRACTIGNAL PART 


owe x aes cin we etartintied foe sernepranete es ots Font Se emis rropem ss aggges gyn ae eune ay a oo nr 
i ys i esas 


ie ee 
Lu Ob CODE M STNT 


30 
OE 


OONSF 
OO4d 
Q043 


OO4S 
Cure 
Quy 7 
O04 
OO4? 
OO4A 
OOgH 
ood 


QOo4o0 
Oo4se 


0050 
bac 


608 4 
OOo 


OST 


bE 
C3700 
SSO 


choAC BAO1 
DAQHOO 
AZ 

FAQODR 


CSB400 


R 


Pu 


<x « Om 


445 


ppt 
& SS 
aN 


th 


shore Od 


can 


SPH SHHES 


CALI 
Pie 


> 


4éi 


Py hye De 


thie Sec 


PHEHHSSSE SHLHSHHHEAR BSD 
ENNIS NININNINIO RR OD 


Sede 


SOURCE STATEMENT 


INGUT 


RET pa peat 
RET CALCTI 


LSN4: 


Ge =e 
; BEF E HUTT 
LIozs RET TGN_ oF 


ea 
ee 
. 


11/22/19782_TCr FAGE 


ASM &.9 


sMEMORY © = 1, 1O#MULTIFLIER FOR DIGIT AFTER POINT, 


5 WHEN daeihes albed OF FRACTIONAL FART FOUND 


i s1OUMULTIPLIER FOR DIGIT 
ib $10 
“ a) 
BOOP 
47 
A . 
LB 
XT. 
IXT.. 
Gs 
LIcss TIER+°E 
ZL Is2 
: IF NO EXPONENT PART 
LIG3SZ: SWE FUT THE SIGN OF THE EXPONENT IN B 
(O FOR +, -1 FOR —). 
i 3 TRUE 
sIF PLUS SIGN 
31F NO SIGN 
$H r= 0 (FALSE). 
LIgd: i 
Lig4z: RE 
a Ls sSYNTAX ERRORS € BUT NO EXPT 
CALL ININT. 
CALL FRE 
FOP” BI 
JF i, ERRS 
NI 


JP OM ERR 
INC B 


we oO LIS 


Lios: = UP Xey 
SEND OF STKUSN. 


sIF EXPT >= ¢ 


ied Os Ms VE JE E 


Byori oreegee 


ey 


INFUT/OUTFUT ~ 
OBI CODE " STMT 


Ic 


' 


OBO 
OORs 
Oo8s 
OSS 
OnkS 


‘ 


OOS7 
OOSA 
QOS 


GosD 
HOSE 


oovE 
( ctae: 


OOP 
OO9T 
OVE 
OO9F 


OAD 


OOAL 
OOAZ 
OOAS 
OOR4A 
ogy Ss 
QOAG 


OAV 
QOAA 
OOAK 
Od 
OOAD 
QOQAE 
OOAF 
OOHZ 


CLE00G * 
Lis 
DEZO 


ar 


0600 
Fh2 SL SASC 


3S 


ri 
COS 7O0 
ies 


c rite OC) 
LEFF 1 


RK 


X 


= 


X 


INGUT 11/23/1722 TCC . PAGE 
SOURCE STATEMENT ; ASM 5.9 


¥EJECT 
DIGIT? 


STROGTs 
7 
3 
nal 2 
54 
sit 
S42 
S13 
514° STK_A: 
Sis. 
S14 
517 
wie ie 
S19 STKE: 
ra) 
sEND GF 
ININT: 
54a 
541 
$42 
Sq 
e440 
SA LITZ: 


SEND OF 


SETS CARRY IF A-IS A [AGIT. 
SERVES ABCHEML 


RET ¢ 
cr HIGIT+10 
Cor ! 
RET 
SCONSIDERS A AS A CHARACTER: IF IT IS A NUMERIC, THEN PUTS 
3 THE - Cera we: oes INTEGER GN THE Bo ELATOR ; 
§ STACK, SMATHING ACNE’, & RETURNS WITH CARRY © 
3 OTHERNTSE » RETURNS WITH CARRY SET, PRESER RVING. EVERYTHING. 
FEL DIGIT? 
vIF A NOT A DIGIT 
SUB fiIGIT+0 PDROES THROUGH INTO STK_A. 
SFUTS AN UNSIGNED INTEGER IN A ON TOF OF THE RoE EUt ATOR STACK. 
$ SRE Urb CARRY OFF, DE & HL STACK POINTERS 
3 bor] 


ATED. ’ 


SLIKE STKIA, ‘BUT STACKS A TWO-BYTE UNSGNED INTEGER IN BC, 
’ ; sFOR RETURN FROM USR 


fet ¢ 
LEFB Git 
AND A 

FET Le 


STEDGT. 


iREADS AN UNSIGNED INTEGER FROM NEXTCH ONTO THE CALCULATOR 
STACK (0 TF NO MIGITS). 

CN ENTRY A = 1ST CHARACTER. 

CIN RETURN = TERMINATOR 

PR £. ve. 

ALEC CIES, 


450 es en wt we ws 


TIF TERMIMATOR FOUNT 


#10 


DEFE ETT 
CALL NEXTICH 
dK LITZ 


TNINT. 


I rs UT/OUTPUT é TNOUT 11/23/1932 TCC PAGE 4 
Cc o 


OB! CODE M STMT SOURCE STATEMENT ASM ELF 
HEJECT ; 
XEY: SREPLACES TOF NUMBER, Xs GIN r 
; CALCULA T UR STACK BY X#10x#A, : 
$ USES MEMORIES @ & 15 MAXIMUM STACK DEPTH = 4. 
QOH 07 RLCA ' 
QOBS OF RRCA 
OOES 3002 =o NCGLLXY15 s1F EXPONENT IS NON NEGATIVE 
OORS ZF PL : t 
OOny ac ; The ; : 
OUBA FS LXY1ISs © PUS at fA = MODULUS OF ITS ORIGINAL VALUE 
217250 Lo “Hh heMAOT eae F : * 
CHOOod Xx CALL ST BOWL IMEMORY GO f= SIGN CF ORIGINAL @ (0 FOR >= OG, 1 FOR < QO) 
RET c “ALISTER 
EF RST CALCTR : 
A4 DEFER CONST +4 $10 
ae os aa ae 
a BO AF 
LXY2i SNGW WE HAVE LTIFLIER N CINITIALLY 10, eM SEITING 
+ REPEATEDLY Sollak REG) ON TOP OF THE STACK, & X UNDER IT. 
#FOR EACH ON EIT OF A *X IS MULTIPLIED .OR nivinkn BY N. 


$I1F ZERO BIT 
7ELSE X #2= NOR X /s= N 


EF 
Ed 
4, 
ne 31F DIVIDING (A GRIGINALLY NEGATIVE) 
QO 
gq 
24 
ne 
as LXYG: pa 
- El LXY4: EB MEMORY +1 
cn ahi 33 IEF muy 
OCs Fi P ii i : 
OUT, 2008 LXYS: g1F FINISHED 
OOS FS ‘ 
Oop Cr 
OOLA 31 is 
Ook oq © 
Cate) oie BS £ 
GOL Ft bar 
Cnn IGES 40 
: 401 
GOS LXYG: . 
Om EO 
OE A 603 3N 
404 ; 
40% 
608 


607 ;END 


ms 


om 


TINEUT /OUTPUT INGUT 11/23/1932_TCO FAGE So 


Loc OBI CODE M STMT SOURCE STATEMENT . ASM 5.9 
*#EJECT . 
: LINDE s sCDE s= INTEGER TYPE NUMBER IN (HL) TO (HL+4) (SIGN IN (HL+1). 
é i LS & MS BYTES OF 235 COMPT VALUE IN (HL+2), (HL+3)). 
4 $C $= SIGN, O OR -1, TE t= ABSOLUTE VALLE 
ae bs SPRESERVES B, HL +2= % 
OOE4 = 23 é TNC: HL. 
OOES 4E & LO, (HL) 
OOES Z3 é INC HL 
QOE7 7E 4 Li A, (Hit) 
‘ 4 § THERE ARE NOW THREE CASES: Co = 03 C = -1 & COs 
4 : & C= -1 & A = 0. THE re ie COBE CAN BE SEEN TG WORK IN 
; é2 aa $ ALL THREE. 
ONES A? 4 XOR 
OuEY VL 4 SUB OC 
IEA =F 625 LD ELA 
¥ 23 G24 HL 
, : 7E 425 LIS Ay CHIL) 
OGED ny 42h i ALL 
OGEE ° AY b27 XOR 
QOEF 27 62 LO LA ‘ 
OOFO cy 427 =T ; 
430 ; 
& STDE_LUs 3 INSTGNED INTEGER DE IN & BYTES AT (HL) 
; ° i (HE+1) = (HL+4) 3= 0, 
4 3 
& $ 
28 ae 4 . 3 t= OF 
OOF 1 OEOO & _ . Lice oe 
& STDELSs 3 STORES EGER CIE IN S Bites AT (CHL) 
e COT: JE SIGN, O OR -1,-DE 13 THE ABSOLUTE VALUE. 
. $ = t+ re Or 
4& 3 a f 
é 3 42) & t= LS & MS BYTES GF 29 COMPLEMENT FORM 
4 i. IF INTEGER. ; ; 
é, SPRESERVES HL 
Mes 4 eee sCPRESERVES BCE) 
ES 4 FUSH HL 
2400 b LO ht. 
23 & INC Hi 
71 & LO (HL) 2c 
pe) 2 TNC Hb : 
7 Et Lb ALE ae oe : 
BF Son & SALGORITHM.LIRE THAT OF LODE 
77 LO (HLA 
23 TN HL 
7A LO ALD 
ay Au Aye 
AY XOR 
77 LO (HLA 
23) INC HL 
3400 LU (HL) oO 
E1 FOF HL 
Glos cy RET 


FPZEC: FFLOATING POINT TOE, : oo 
i BC t= \TOP, Xx» OF CALCTR STACK\, ROUNDED TO NEAREST 

3 INTEGER. X POPPED GFF STACK. A i= NEW C. 

+ CARRY SET IF \X\ >= 2814, IN WHICH CASE NOTHING SENSIBLE 
f IN BC, ZERO RES ser (NZ) IF xX <0. 

; SMASHES Beth? ; 

§ DE,HL = (NEW) FCALCTR STACK POINTERS 


’ : . : f ah Be . oo Se pM eget ray 


1S 


o 
N 
A 


ORR 
SINISE SIS 
Redan Negau 


iri 


ee 
aN RS 


Nee RoReRaRD 


IN 
waren 


CONE A pose od 


om 


ape Cou at ME 
a fay Pa CODE | -M STMT 
O107 
O10% * 
O10 
O10A 
O10 
O200 EF 
QOLOE Az 
QLOF | OF 
OL10 27 
Od a 
Q1412 EF. 
O1ls 2 
O14 er 
OLLS ES 
O11 iS 
O1L7 Eb 
O13 a 
OLL? KOEN OR 
Oli AF 
O11In 90. 
OL1E CET? 
OZ 4z 
121 4B 
Ber 7% 
OlZ3 bi 
O1Z4 El 
OL25 Cy 
S7 
/ 17 
oF 
SF 
4F 
AF 
APs ace 
Chao x 
EF 
34 
EF 
1A 
4 8) 
oA 
Pat 
O4 
27 
er) 
CHO7OL 
Tg 
FS 
FO OS 
O140 Q4 
O14. 250% 


SOURCE 


LF! 


FEND GF FR2EC: 


pres 


LRee'y 1 


Drs 
i AZT 
_ wh 


e 


LOG_108 


FF 


ZAt 


aa 


m4 .s44 


AnD 


+ 
he 


= ABS 


Re 

DEFB 
a 
ore 


PAELCE 
CALCTR 


CALCTR 
LITERAL 
OCOH+47 
LAH 


ieee ht 


S 
a! 

é 

io! 


ING _FOIN 


SIF INTEGER ALREADY 


#1/2 


3B = @ IF INTEGER TYPE 


. 


T CARRY UNLESS INTEGER TYPE 
IS IS THE SIGN BIT EVEN FOR A FLOATING POINT NO. 


SINT (A/LOG 23 110 


stig = ne ali STACK POINTERS 


A += -1 TE WAS ane ~VE, ELSE ©. 


{ 


SPUSH GRIGINAL SIGNED A GN CALCTR STACK. 


SLOW C10> 2 


i 


_ T TO A. 
2EC, BUT SETS 1 CARRY IF AX\ oe 254. 
| 


i 
] 
i 


{ 
IF B= 0 (NO OVERFLOW) 


mn 


UT /OUTPUT INGUT 11/23/1982_TCC 
: OBI CODE M STMT SOURCE STATEMENT 


Fl 732 cee AF 
37 7B . 
Cy 73 RET 
735 
Fl 736 LFAZ: FOP AF 
Ly 737 RET 
739 sEND OF FR2A, 


os 


room 


We bee IMGUT LA/23/1782_TCC © PAGE 3 


OB CODE M STNT SOURCE STATEMENT . : ‘ASM S.¢ 
740. *#EJECT 
741 : 
7420 : ‘i an 
$43 OUTPUT: DPT a CALCULATOR STACK. 
745 ES 0 TO Ss fax IMUM Ss STACK [EFTH = 4 (7) 
744 : sMEMORIES 3 & 4 USED TO STORE DIGITS 
747 SNUMBER GF DIGITS AVAILABLE IN BUFFER 
Zae CIMAL EXPONENT 
7) ; 
O14 EF ah 
O14? vi 730 
OL4A 3G 71 
O146 7352 SIF X¥ <Q, 
O14 732 
O14t 784 
OL dE 755 ; 
QL4F 74 IF X > Q. 
O1sie 737 
O13) 7S 
OLSZ 7a? P 
O1S3 740 
761 
OSs 
O84 762 
: 743 : 
Q’VS7 764 LOTLs DEFER ABS sX f= -X : se _ 
OLS 7&5 DEF E Ait s(ORIGINAL) X ¢ O & WE GUTFUT A MINUS SIGN. 
OLS? 764 LE Aa MINUS 
ae oo 767 
OSB t7 Def 
: 763 P 
OSC EF ‘, ; 
OSG AQ LOTLSs 30 : . 
See eg SINITIALIZE BIGIT BUFFER, (NODIGS) & (NGEXPT) Ta o 
OLSF ; : 
O140 cS : 
O16) Oz : 
O162 te) sFROM NOW CN WE ASSUME X > ©, 
O14G3 ty { BRK 
pice a ; aca HL SMUST PRESERVE THE Hi WE HAD CN ENTRY 
O168 a =X) 
LOT1é8 ERE TO ERINE THE (TOP GF STARE X (> ©) % 104 (NGEXPT 
WTEs ~_ IF WAS ORIGINALLY VERY LARGE THEN WE COME eCND HERE 
rs) SECOND TIME. 
LEE EF 
GL&7 34 
OL dis 27 
Obs Cs 
O16A os 
O14 es 
O160 Ot 
O16 ie ‘7 
OIGE oO2 pa ; 
OL4F ma 7H -: Niet erat ; 
7% X IS SPLIT INTO ITS INTEGER’ FART N (ON THE STACK) & ITS 
er 3 FRACTIONAL FART F_(IN MEMORY 2) 
0170 7E 773 ee Ay CHL) sQFFSET EXPONENT GF N 
O171 Ay 724 ANG A .z De ees 
O172 O47 12S aR "NZ LOTIS sUNLESS N IS INTEGER TYFE . 
o174 EUESOO RO 7#6 CALL LODE 
O177 0410 737 LD B14 
OL79 7A V3 LG ALL 


sie dae ia 


OL7A 
OL7B 
oO170D 
O1L7E 
Bree 


O1sy 
O13A 
O1Sb 


OLE 
OF 
OLA 
OlAL 
OLAZ 


OLAS. 


O1A4 
QLAS 
O1AS 
OLA 
OLAC 
GLIAL 
OLAE 
OVAF 
OBO 
O1bS 


Ok CODE M STMT SOURCE 


23 
th. 


oer 


ane 
Beaoo 


R 


ma 


og 
eS 


RON CC aN on 


11/23/1982 100 PAGE 9 
cd 


INQUT FE 
STATEMENT ASM 5.5 


AND A 
me ese he SUNLESS N FITS IN 1 BYTE 
a) 7 : 
a Z+LOTA7 ‘IF N= 0 
ty 


LD B83 | 
PUSH DE 
EXX ; 
POP LE ‘ F F e 
EXX | i 
JK LOTS 
SIF N=O WE GET F (IN MEMORY 2) INTO A CONVENIENT RANGE, NAMELY 
: 3 1/10 TO 10, 
RST pat : 


RST CALCTE 
+ DEFE MEMORY +22 $F 
DEFB GUIT . 
WWE NCW CALCULATE AN AEE STINT TON Th LOG <10> FF. | 
SSUPPOSE F M # 2eHE, 1 /2 <= M<i1 (& E <= 0, SINCE F < 1). 
$ THEN LOG <2> F. = E+ - Lowa ¢2> Ms -1 <= LOG <2> M ¢ Q 
§ 30 E = INT (Loo <2) F) + 1 
SSIMILARLY, IF F = M% # 1OKKE, THEN 
3 BE’ = INT (L0G 102 F) + 1 
SWE SHOULD LIKE AN AFFROXIMATICON TO E* SO THAT WE CAN DIVIDE 
5 F BY 1Oe#ES & GET IT IN THE RANGE (APPROXIMATELY) 1/710 TG 1. 
3 LOS £103 F = E / LOG <2> 10 + LOG “10> M 
5 & -.3011 < LOG 10> M <¢ O 
§ THUS E" (SAY INT (E / LOG <2> 10) IS EITHER E’ CR E“—1 
sINDEED, THIS R INS TRUE TF WE ADG 2 TOE, & THEN E" f: 
5 MORE LIREL BE E*. DIVIDING F BY 1O##E" THEN PUTS IT 
. ; INTG THE R oO TO 10, 
LT Ay CHL) sOFFSET 2NT OF F 
SLB 124 3A 
ee Lewa_10 iA 
2A 
LB Ap (Holter) 
LI (NOEXFT).A S(NCEXFT) +2= €" 
LO A, % 
aie KEY $F /3= 1OeHE" 
RET CALCTR : 
RET CALCTR 
FE DUFF 
DEFE IN 
DEFER COPY+1 ; 
DEFER Sun. iF ¢= FRACTIONAL FART . 
DEFER MEMORY + 1 
DEFER GuIT : 
Shen FPZA $A = INTEGER FART OF OLD F = 1ST DIGIT 
a JONOBUFF ) A 
A 
BLA : 
=hC AA 
INC A $A = OG IF 1ST DIGIT WAS ©, ELSE 1 
LO HL, MoOnTGS 
LO (HL) +A 
an gee NOEXPT=NODIGS+1 


1 NOT. (NGEXPT=NODTGS+ 1) 

ERR IN ASSERTION NOEXPT=NODIGS+1 
1 

ING HL sHL == NOEXPT 

ALD As (HL) 


ee ge ee 


+ ted epee 


et 


it HT /OUTRUT INOUT 11/22/71 982_TCL FAGE 10 
cur 


OBI CODE -M STMT URCE STATEMENT . ‘ ASM S.¢ 
O1E& 77 8 LD (HL).A ; 
Q1B7 Ei. 3 OP HL, sHL 3-2 F 
OLES C33402 R & JP LOT4 . re 
re 
& LOTTI: rene WHEN N IS (00 BIG TO BE INTEGER YFE. 
= 3 . lL -> N (ON CALCTR STACK), & A = OFFSET EXPONENT. 
OLE 0IGSO e ‘ SUB 125 
OLED FEIG & cP Zo 
O1B Sa1S 4 JR CLOTS = bs 2 Z . . 
. & HERE IF BINARY EXPT 32 28, T.6. N 2S ABOUT 1.34 # 10#8G, 
sSINCE ONLY 8 GIGITS ARE “PRINTED, THIS MEANS THAT F HAS NO 
3 SIGNIFICANCE. 
SWE WISH TO PRINT N # 10%##(NOEXFT) 
SIF N= M¢ # 1O"8#E* THEN HE WANT TO REPLACE X BY 
; N / 10##(E°% - 7) WHICH WILL BE IN THE RANGE 10#*4 To 
3 LOee7, AS IN THE CASE OF N = G, WE ESTIMATE E* BY 
3 —" = INT (E / LOG <2> 10) WHERE E iS THE BINARY EXPT 
: ; THEN E" = E* OR Ev-1 (MORE LIKELY E€°) & N / 10##(E" - 7) 
. ; 1S IN THE RANGE 10##46 TO 1Ox#e, 
Owes COZ601 K coe Pea 10 F : 
O14 D407 
OWS 4 rhe BA 7 
OUl7 Z1AC LD HL» MOEXPT 
O1CA & ADD A> (HL) . 
O1CB 7 LO (HLD.A s(NGEXPT) +2= E"-7 
Ore 7 LD AE . 
O1LG NEG 
OL C CALL XEY SN /2= 1088(E" - 
O1O2 - 15 JK LOTI4 sWITH X REPLACED by N 
Hieber de N ON STACK & IN THE RANGE ABOUT 64000 TG ABOUT 1.4E6 
? a - 
O104 EB EX WE HR ne eee : 
OLDS CLOOOG x CALL SUMSLO ie bE DE t= NANTISSA, LL“ t= OFFSET EXPONENT 
Ons by EXX : : alae: a 
O10? CBFA SET 730 ow, SREMNOVE O SIGN BIT 
O1bB 7D LE A»sL. -* : 
OL Lit EXX 
OAHD D6ao SUB 128 : eo 
ODF 47 is LO BLA Pe ee EXPONEN NT 
LOT 31: #HERE WITH N = BOMOST ogee Wa BITS OF D’E“TE CN = INTEGER 
5 FART OF D°E* TE a Zt (EO 
SN IS STILL ON THE CALCTR STACK "AS welt 
WE NOW SHIFT B OBITS OF DERE LEFT INTO THE & BYTES 
3 AT NOUBUFF+53; BUT THE SHIFTING IN RAM IS GONE WITH DAA 
. H £0 THAT THE RAM BYTES END UP CONTAINING DIGITS. 
O1EQ CB23 LOTSZ: SLA E 
OES CEL2 KL OD 
OLE bi EXX 
OL1ES CHAS We, RL OE 
O1E7 CRLZ 5 RL OG 
OLE? by VO? EXX 
OLEA Z1LAASC PAG LU HL.NOBUFF+9 
OLED OOS Pll LU oS 
O1EF 7E PlZ LOTS3: Li A, ¢HIL) 
QO1FO 8F JAS ALT ALA 
OLR’ = 2 314 DAA 
O1F2 77 PAS LU (HL)SA 
OFS =B P14 DEC HL 
OLFAa i) P17 
GIES sors 91s ; 
Q1LF? 10E7 FAY 32 2 _ - 
v20 iNOW THE 3S BYTES AT (NOBUFF+5) CONTAIN N AS 10 DIGITS (MS 1ST), 
924 ; PACKED DECIMAL, RIGHT JUSTIFIED. 


imine apeagee cae ay ee a ara : é:4 a eet eee grate ae etek 


INPUT /GQUTPUT NOWT 41/23/1932_TCO PAGE 11 
Loc Obs CODE M & 


SOURCE STATEMENT ASM S.9 


OR A 
‘a HL. NOBUFF +S 
LO DE, NOBUFF 


LO Bb, ? NG. OF DIGITS WANTED 
RLis sA G= 0 
aa LG c,-1 70 SHOW ZERGS ARE LEADING 
LOTS4: Rib 
JRONZ> LOTS IF DIGIT NON-ZERO 
DEC C 
ING ¢ 
. JK NZ LOT36 SIF LEADING ZERO 
LOTSS: LO (GE).A 7 
ING DIE 
ING (CLY-Y+NOOTGS ) 
INC CIY-Y+NGEXFT) 
LD 2,0 
LOT34: BIT 0.8 . yo ; 
. oe mead s0MLY IMCREMENT HL. EVERY OTHER GO 
oe 
LOT37: DJNZ LOTS4 | x ae. rit 
g SNOW NG, TO BE OUTPUT TS | 
3 . CONOKIGS) DIGITS FROM (NGBUFF)) COIGITS FROM FI 
+ p % 108% (MOEXFT) 
SF TS IN MEMORY S, N IS STILL ON THE CALCTR STACK. 
SWE EXTKACT DIGITS FROM F. 
SUB Fog ' 
SUB OF 
JR, LOT VIF G& OR FEWER DIGITS sO FA 
Peratae” VANODIGES sELSE MUST BE EXACTLY 93 (NODIGS) a= & 
1 Ay 
ee Lig ee sCARRY SET IF ROUNDING WANTED 
al At 3 
LUT33: ; :HERE WHEN N DEALT WITH, BUT IT HASNT FROVIDED & DIGITS 
RST CALCTR " 
RST CALCTR 
DEFBR LOSE .~ GN =O 
DEFB MEMORY+2 $F 
DEFR GUIT a oye - : 
ere woe F ON TOP OF STACK TO EXTRACT 17S DIGITS. 
-_ . 
EX DEH | _ . 
Ee SUNSLOD sD°E“DE ¢= MANTISSA OF F. L* ¢= OFFSET EXPONENT 
LD AsVZe , : 
SHEL 3A t= ~EXPT 
LO Lg : 
PES : eer 70 SREMOVE STGN BIT 
y 2 
970 ; CALL SHIFT sD°E*DE t= FIXED POINT F 
-271  LOT4s: Ly As (LY~Y+NOWIGS) 
972 CP i 
v 2 a eel es 31F MORE DIGITS WANTED 
a mY 5 
PIS pay SSET CARRY IF ROUNDING WANTED 
v 274 4 5 
OS4E 1820 3 JK LOT4aS 
O251 OLA? re Bees sh s= 2, C i= 0 
SNOW CD“E*DE t= 10 * BD°E*DE 
7B LO ALE 
CLFOOs k CALL ABY10 
SF : LO E.A 
7A . LO AND 


ee eae ; INGUT 11/23/1782 TCO FAGE 12 
Lo O83 CODE M STMT sa RCE E STATEMENT AEM S.7 
CHF OO? K CALL peyiy 
57 LD DA ¢ 
cs PUSH BC 
bry EXX 5 
C1 BOF BC: 
1OF 1 TMJINZ pr oraza 
Z1AISC LE HL, NOUEF 
7? ce At ; . 
FO4E71 Cy YANODIGS > 2, 
oy ALICi HL & 
77 _ LB CHE), 
FIN3471 ING (1Y- Pe MODIG 3) ‘ : 
13003 AR LOT42 : : F 
‘ LOT433 SHERE TO OUTPUT 
H - C(NODTGS) DIGITS FROM (NOBUFF)] # 1O#%#(NOEXPT) 
hte ei gee iCARRY SET IF &TH TO BE ROUNDER UF. 
Lo 1 NOBUFF 
LD Co try: -Y+NobTbs > 
re) j - 
AGH HL, BC sHL &-> RYTE AFTER LAST DIGIT 
Lo Be fER ss (HODTGS ) 
FoP AF SCARRY SET IF ROUNDING REQUIRED 
LOT44: LEC HH sNOW WE ELIMINATE TRAILING ZERGS (BY ADJUSTING 
hoc ho 3 (NODIGS)).. ROUNDING IF NECESSARY 
a DO 
LO (HLILA 
AND @ ; : 
JR Z,10T45S SIF TRAILING ZERO. 
sag : 
i We : 
> AR NE LOT4S SUNLESS ROUNDER UP TO TRAILING ZERO 
LOT4S: DINZ LOT4a4 a 
By ee Baa 7 WAS STRING OF 9S ROUNDED UPs HL = NOBUFF 
La = t= 
es INC (TO VENGEXET) 
LOT4e: LO CLY-Y+NODIGS) Bb is Set G 
LOTS: WWE NOW HAVE (NODIGS) DIGITS M1,0%, ... IN MEMORIES 3 & 4, 
P Ae & X = .D1 D2 1... * 10 HE (NOEXFT 5 
% . 
R T 
Li SE iF OR ON 
ii 7 


;SAVED VALUE CF HL’ FROM ENTRY. 


ZERT NOEXPT=NODTGS44 
/NOT. (NGEXPTSNODTGS+1) 
IRC IN ASSERTION NOEXPT= SNOT OS+1 


aged ash 


103 CD BC, (NCHIGS) 30 f= (NODIGS), B t= (NOEXFT) 
te LI HL, NOBUFF ‘ ; 
1c LD Ase 
1G CP tees ee . 
ie of ae SIF O C= EXPONENT <= & 
1¢ eee AR Ci LOT7 SPOR SCTENTIFIC NOTATION, IF 7 <= EXPT OR EXPT <= -5 
1 LOTSS3 AND A sHERE IF -4 <= EXFT <= 8 : 
KX 10400 CALL Z,FUTLIG 
1041) OP_LPR: 5 SL HERO OLIT INE OF QUTFUT To FRINT THe DIGITS 
1042 70 <= C = NO. GF DIGITS AVATLABL 
1043 HHL ovP LAS ST BiG s1T . ee oy _ 
1044 3B = NO. OF DIGITS BEFORE THE DECIMAL FOINT (OR MINUS THE NO. 


rs : i M es . De aan ee 


ood 


INFUT/QUTPUT INQUT 11/23/1982_TCC PAGE 13 
Ltn: Ob) CODE M STMT SOURCE STATEMENT ‘ ASM 5.9 

, 3 OF ZEROS IMMEDIATELY AFTER IT). 

SPRESERVES [D. 


AF XOR A 
Wo SUE B ‘ 
FAB7O2 RK JP 4 LOR2 tIF B > O 
i LO EA Hoss -b = NO. CF ZEROS AFTER FOINT 
1800 UR LORS : : 
7? LOR 26 LO A sO <2 CC, O < EB : 
AZ ; AND A as 
2803 JR Z.tORa  - s1F NO DIGITS LEFT, $0 FILL WITH ZEROS 
7E LOA, (HL) 
23 INC HL 
oo Hee: C ‘ ; . 
COO * X LOR4s C ALL FLUTOIG i 
1OF4 a ThINZ LORZ: ; 
7H LORS: LO Aye ;HERE ire PRINT porn (IF ¢ <> 0), 0 <= B ZEROS 
az ANH A 5 ke CMIGITS . 
cs RET z i 
O4 | INC 
SESE 7 th An POINT 
' LORS: RST CH . 
7. pet wine : 
E30 LGU A sDeaete : 


ede Lt 
= 
= 
i 


1 4 . od . 
GES JK LORS SSINCE B= C > 0, WILL FRINT C DIGITS & RETURN 
SO LOT? : Lo to PSECTENTIFIC NOTATION, fo t= EXPONENT. 
13) Dec Oo 
O601_ LU B, . 
COAFOZ K CALL OF PR 
SE4S LU A LETTER+°E* 
RET WRCH 
7 RST WRCH 
cau 4A a Goh eae * $0 8= EXPONENT TO BE OUTPUT. 
id te 4 ri 8 
‘a3 ate AND A . 
ESO Ro JE Pa Lov72 sIF GC p= 0 
1 NEG | : 
1¢ LO CA sC t= \CN 
10% Lf A, MINUS 
} JR LOT74 
1 LD Aa PLUS 
i REST WRCH 
oo pehe HRC 
1 Lo 
X : JF Por BC 
rh sEND GF GUTFUT. 
ABY 10% ;A b= 10HA + Cr C 8 CARRY 
: 5 ;PRESERVES BDE ; 
LS ; PUSH DE 
bf 1 LO LA 
Lb00 1 LD HY 
So 1 Co EL . 
4 1 Li DH 
29 1 ADD Hl HL 
2 1 ADD HL Hk 
1? i AD HL» DE 
ay 1 ADL ee HL sHL &= 108A 
ay i LB —, 


fered 


INPUT/OUTPUT _ INGUT 1/23/1982 700 PAGE 14 
Lic OBI CODE M. STMT SOURCE STATEMENT ASM 5.9 
1? 1106 ADD HL, DE 
4c 1107 LO CH ‘ 
70 110% LO Avk 
(1 110% POP DE 
Cy 1116 ET ' 
1ifi as 
1112 END. 


aw 


a“! 


oN, 
eer 


— 
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ARITHMETIC = 
Loc Ob CODE .M STMT SKURCE STA TENE NT 


1)  #HEALING ARITHMETIC 
#LIST GN 
GLOBAL ADL, SUB, TIMES, LA VIDE, TRUNG, ERRG 1S 


SEIN ho 


MELO SHIFT) FLOAT MULT 


a EXTERNAL STOE_ 2) LDDE sANCHIT 
EXTERNAL NEGATE, TEETO Ss CALS & 
TFLOATING POINT DINALY NUMBERS ARE STORED AS HOGI ZE “BYTES: THE FIRST IS THE 
i FLOATING PORMALLY IN THE RANGE -127 TQ 127, BUT OFFSET BY 128 TO BRING Ii tNTO 
+ THE RANGE 1 TQ 2553 THE RLHATMING NOSTZE-1 BYTES ETORE THE. ARSCLUTE aye is 
s THE MANTISSA NORMA IZED TO SET THE LEFTMOST Buy, Buy THIS LEFTMOST BIT ee 
¢ OVERWRITTEN BY THE BN, Oo Fi +¥E & 1 FOR 3 & REFERRED To AS Rier 
3 ORDINARY FORM, & TS PONVENTENT Fok Hot TEL TCATEON, TRIVis STON, RE PUT & GUTPUT. 
een THESE THe” : att ee A BYTE I Is ot ees FOR -1 FOR -VE). & THE 
“OR THES € Ss 8 ber] i at a , 
3; SND & SRD ARE BITS GO - 7 & B ~ 18 OF A i7- EIT 28 ConPLENENT ees THE 4TH 
3 4 = cif = Mr AIS O. 
SF CR AVM TTC & ACTION THE cuRcH MARY FORM TS 
. 3 TO AS oe MENT FORM. IN THIS | ONE, Must 

SEY 1 WIT GN THE LEFT: THE COMPLEMENT Ce 
: THIS Cise(NOS1ZE-1)+1)-B1T NUMBER IS 
3 THE KANT 1S “TN PRACTICE DURING CAL teat! E 
3 SHIFTED & FORTH) THE eit sone irs | 
7 ® Hi ie c ALT. 
+ Nt 4 SIGNED NOSIZE-BYTE FIXED AR 
3; SIGN EYT Co TONE CT INTER *RETATION OF NUMBERS SHIFTED 
3 AGT T TON an *SlIBTR ae 


ARITHMETIC 8 SUNS L/23/1 982700 FAGE . 2 
Loc OBJ CODE M STMT SOURCE STATEMENT ASN 5.9 
4 #E JECT 
4 TO2C: 8(TO 23 COMPLEMENT) CONVERTS A_FLOATING PCUNT BINARY NUMBER 4 
4 3 IN E ERGM ORDINARY FORM Th 2s COMPLEMENT FORM WITH THE 
4 + EXPONENT STORED INA & REPLACED BY A SIGN BYTE. 
4 ; GN ENTRY> HL <> EXPONENT. B 
acc [ON RETURN, A = EXPONENT & ALL ELSE 1S PRESERVED. 
4 LO As CHL) 
LD (HL) a ; 2 
4: ANL A -. 
4) KET 2 IFO 
Az 7 
427 7 
AZ ct 


31F Nu IMBER prea LIVE. 
GNEGATE MANTIS®A. 


C HUSH EBS 
OOuL Sios00 Li {BG Hes T Ze 


Ooi ov ALD iL.» Es J3HL ¢-> BYTE BEYOND Las ST BYTE OF NUMBER. 
Oo11 i LO Be 3Ho&= NOSIZE 
Hol2 Lp CAs sTO KEEF A SAFE. 
OOS . a . 
act 4 LTC4s 
OUlLS tb ‘a tit) 
GO ae 
017 4. ELIE AL® 
Ole 440 Lo (HLDLA 
OoOLA 44} DUNZ LTc4+ _— - * 
OO1’ 442 LO Aa€ 5A RESTORED TO EXPONENT. 
ool 443 FOP BC ; 
OOLE 444 RE 
44a spies ach eile 
446 sEND OF ete * 
447 


SUMSL Is c ia B. Bes SOF feet faut toa INTO THE 


+1 ae 

eta)" 

BYTE OF (DE), H* t= THAT OF (HL), 
A YS STOREO IN (HL+1). 


7 3= SGN OR EXPT BYTE. 


iA STORED AS PROMISED. 
$A ¢= SIGN OR EXPONENT BYTE 
sFOR Eo 


ON LE 


ie 


phic: 
Lo by CHL) 
(EX Oe, WL 
Lis Lh, Fa 
LOE, 


sFOR H°L* 


fe 


OBJ CODE M STMT 


ARLTHMETIC 
Lic: 
033 «E 
O37 C1 
SA by 
B 23 
b 23 
OSE SE 
OIF Fl 
ao4o EL 
oad Cy 
oOngs AZ 
Cas ch 
Ouda * 21 
QO4G SOLS 
Go4ia es 
47 
li? 
CBD 
CHA 
CHAR 
Op 
CBIA 
Chik 
10F2 
ee See 
no 
CO6 700 
co 
Le 
OORF AF 
O60 ZEOO 
eee 7 
SO 
vy? 
God ba 110000 
CHEE Cy 
apes ic 
co 
14 
CO 
> bs he 
6 1c 
aes 2001 
M74 14 
AE Dz 
Oo73 5 


R 


Sehsed. 
t 


omen 


ala 
pep | 
‘1 
o1 
St 
S41 
4 
a1 
Ad 


epaatanene 
Eshgem Desc 


Se 
Lip 


LIMES: 


SOURCE ST 


ATEMENT 


POR HL 
SOF BS 


M1/S3/1982_ 700 FAGE 3 
ASM S.9 
Pia 
i 
iL.) 
iL.) SDE DE = MANTISSA CHL) 


SHL REVERT? TO CRIGINAL Vég HE. 


SEND CF SUMSLOI 
SHIFTS sEHIFTS NVESDE sb WILL WE A SIGN BYTE, © GR -1) A_BITS TO 
§ THE RIGHT, TREATING THE CASES A = 0 '& A >= 33 SPECIALLY. - 
$ THE LEFTMasT ie a PROP AGATED ATE TIC SHIFT). 
s ROUNDS UP TF SHIFTED GUT IS 1. 
3 BH & HL ARE FRESE 
ANL A ee . 
ae sIF NG SHIFTING: WANTED 
PR : ; . 
JR ONG LSTS IF A TS LARGE . 
PUSH BC ? 
“ “LOD BA : 
-LST2: EXX 
SRALL —_ 
RR D a“° 
RR gee" 
EXX 
RR 
Rite 
DING LEtTZ 
PUP BC . 
RET NG s1F NO ROUND-UP WANTED 
CALL RNDUP : 
eS RET NZ oan SUNLESS AFTER SHIFT LC’ O°E“ DE WAS ALL 18 WITH CARRY. 
LSTs: =X 7 SDROPS THROUGH TO ZEROX 
ZEROS gis A s°* GALTEDCEY ¢= 0 & EXX. PRESERVES BCH, 
. a) 
ZERG1: . 3° SLEDPE’ t= 0, Do t= Ay EXX,. PRESERVES AH 
LO Lo 3° 
LE by, e ae 
DELL 3°. 
EXX 
ie DE, O 
RE 
FEND OF SHIFT & ZERO. 
RNDUP s GROUNDS UF DESDE. RETURNS WITH ZERO FLAG SET (Z) IF A CARRY 
3 15 GENERATED. 
SPRESERVES ABCHL. 
aie fi 
\ 
ihe 
RET NZ 
EXX 
INC E aa ec 
JR ONZ LRP 2 wee 
aes Inc oh ive 
LRPZ: EXX 
; RET 
sEND OF RNDUP 


CARTTHMETIC SUMS 11/23/1982_TOD PAGE 4 
Lug UB! CODEN STMT SOURCE STATEMENT AEM 8.9 
; 542 


a. 


7 


oN 


~ 


ARITHMETIC : tae 
Loc OBS J CDE M STMT SOURCE 
#ESECT 
SUB: 
oeee EB 
Chagoo X 
O078 EG 
ADTs 
Qo79 1A 
' OO7A BG 
OO7B 20246 
z 
2 
i 
Cs 
a LADISs 
i) 
ar Feos RK LADIY: 
ibe 
+ EF 
Le 
i ths 
ES 
OOAB COOQOE kK 
GORE 4 
QOAF Eb . 
OOK CoHaGoOo R 


SUMS 


STATEMENT 


EX HE, tL 
CALL NEGATE 
EX DE, HL 


LO A» (DE 
OR (HL) 


JR NZ,LADIY 
3 THE cone: POR 


PUSH DE 


EX DE.WL 
ALD FHL, BC 
EX GEHL, 
Abc A, CHIC) 
RACA 


AU 0 


JR NZ, LADS 
SEC fy 


11/23/19782_ 


TEC iF e GE bat 
| ASM S.9 


| 


H 


BOTH Ba shoes INTEG 


MIL. 
Rj TNTEUEE AUDIT TICN ASS IME 


$A f= SIGN BYTE 


SIF OVERFLOW 


Py 


3H t= (XE) 


sy Ae POINT BINARY SLIETRACT ION, (HL) ay (DE), 
28°,07,0" & E% ARE SMASHED, DE,HL & HL’ ARE 

SERVED, 

ATING FOINT BINARY ADDITION, (HL) +25 (DE). 

THE COMMENTS WE REFER TO THE BYTES © oF (HL) & (DE) 

alee lel hye 4 » & aoVd, ... VR Ch = NOSIZE~-1). 

ERVES DEM. 


ES THAT DE = HLENOSIZE 


11/23/1982 TC0 FAGE & 


ARITHMETIC SUMS C3 é 
Li Obed COLE - M STMT SOURCE STATEMENT ASM 3.4 
OOS 4F 607 LO CA sC t= (YE) 
OOn4 BS . 603 CP ob : ae : 
QUES 3003 GOP AK NC, LADS IF EXPONENT OF X <= THAT GF Y e 
GUk7 73a 410 LD A,B 
oon 41 444 LO BC 
ook? EB é12 EX DE,HL ec e% : : . 
@13 LAL: INOW A= nage EXPONENT, To o= SMALLER, CARRY SET IF EXPT CF 
: £14 + ¥ < THAT OF Hl. -> NUMBER WITH LARGER EXPONENT. 
Cary nee FS 61S 
“Q PO 616 3A = ABSOLUTE DIFFERENCE fis TWEEN EXPONENTS, 
CDLFOO R 417 ALL “SLMS 31.0 
ch4asog KK 618 ‘ALL SHIFT ie 
Fi é19 PLP AF (FA ts LARGER EXPONENT. 
El 620 “OF HL sHL a—s XE. 
77 & 2 (HLA 
ES é MSH HL 
ran) Jtyk SNOW WE DN LTE “HL s= HBC CEL DE-DE. 
&l He 
iy Db HL, DE 
o> .X 
Eu DES HL 3°" 3DE t= HL. i 
ELA DC HL, Bit ge 
ER X GE H 3° 
7S 1 AH 
oo ATI Agk : . 
ér tL, a7" Gh 8 = 816 a BYTE OF ANSWER 
iF RRA 7° SNOW CHE at or CVERFLOU, "SHOWN BY THE BOTTOM 2 
ab ROB L $773 BITS GE BEING DIFFERENT. 
vy 
om ER E x" DE. HL iNOW LDPE“ DE = SUM. 
DEUS El 3 Por HL. 
OoaLd 1F : 
GON?  Bo08 JK NC, LALA SIF ONG OVERFLOW 
eds ¥) 1 AL SSHIFT LDCR GE RIGHT ONE BIT. 
Co4soo. KR & CALL SHIFT : 
cit SBE 4 ba TM CHL) 
QOL 2923, é AW Za LAist. i te JEXF QNENT OVERFLOW, 
444 LAD4: ae ‘ONVERT 1° oe GE TO ORDINARY FORM, STGN IN CHL+1). 
4, 3 NOTE THAT. “REDE = FROGOOOOOOOH REPRESENTS -1. WHICH 
5 : ey 5 (AFTER NEGATION) MUST BE SHIFTED TO OOS0000000 = L/ZHZzHHI. 
ase . =X 
7U LO Ask 3°" $A ae ® Cf -1 (SIGN BYTE) 
EG ANG SOH °° GA t= SIGN (20H FOR -VE, O FOR +VE). 
i EXX 
23 TNC Hb 
77 Li (HLA 
2b DEW He : = 
Pas) wit Z> LADS iIF NUMBER IS 4+VE. 
an ‘ JE INEGATE DE DE (25 COMPLEMENT). 
, rate 
oF cor. sCARRY SET IF E WAS oO. 
SF Lo ELA . 
7A LO ALD 
ZF CFL 
CEOO _ AD ALO 
a7 LO DLA 
Livy 2K XK 
7h LL ae i: 
ZF TPL 37 
HE Ali ALO 5 
E LU EDA s* 
bi 7 LO Alo 37 
& a és CPL 3° ‘ 
GOFF EDO G79 : ALC ALO 3° 


ART THRET I Supe LA/ 23/1082 TOC PAGE 7 
Lod COE MM STMT SOURCE STATEMENT ; ASM $29 


OOF a AR NC LADS 37° $1F GE“ DE NOT= 0. 
O10O1 1 at 3°° GA 8= SOH 

o102 Ci 2 

O103 3 
O1d4 CALZ02 K 
O17 ty 

alos 7 

O1o09 try 

O10A AF. ; 
QiOK CescA0!l K 


7 
7s 
as . 


Pithie 


: INC (HL) . sINGREMENT EXPONENT. 
LADASL: aye 


LADWa: LO DA ive 
EXX 


Labs: = Xu A 
JE NORM «SCARRY 1S OFF. 


SEND OF ADD & SUE, . . 


SRIOAAASO ROOD 


eb see S N 


ARITHMETIC | SUNS LA/23/1 982700 FAGE = & 
Loc OBI CODE M STMT SOURCE STATEMENT ASM 5.9: 
#EJECT 
MULT: SHL t= DE, UNSIGNED MULTIPLICATION 
SRETURNS C IF OVERFLOW 
SPRESERVES BCE 
OLOE nn PUSH Bt 
G10F O64 Lo B16 
adil 7: Lb ADH 
OWS Th) Lb cab 
OLLS Ze _ LO HL, Oo 
OMG = 27 Letze ADD Fil Hi bdackie 
O1l7 3 ; JR COLMTS FUVERF LOW 
QL? i RL 
Oe 47). RL Lhd RO ae te Ai : 
Q11e 300: Jk NC, LMT4 FFOR ZEKO BIT IN MULTIPLIER 
OLLIE 1? ALT HL DHE ae : 
OLE SOe . AR COLMTS SOVERF LO 
OlZ1- OFS LMT4: I.INZ LMT2 
O123 C1 LMS: FOF 6B 
O124 Co : RET 
TOF IX? +CTIMES DAVIDE FIX) MODIFIES FLOATING FOINT NO, 
§ TIMES & DIVINE, 
SIF NO. TS ZERO THEM Re TURNS GC, 
sELSE, COMPLEMENTS igh oes OF A IF SIGN IS 1 (-VE), 
3 BIT OF MANTISA, & RE TURNS NC. 
3 _.. SPRESERVES ALL OTHER REGISTERS. 
x CALL TESTO _ Sen 
RET ¢ sIF NUMBER IS ZERO 
The HL. 
Xam (HL) 
SET 7) (rb) 
DEC HL 
S RET 
sEND OF ee. 
5 ASHES Be! BINARY MULTIPLICATION (HL) i= 
4° 
ERVES DIEHL 
i SUNLESS BOTH OPERANDS INTEGER TYFE 
. oe 
7 
X 756 
7 
7 
7 
xX .7 
. ~ 7 th A,B 
OL4e Ao 7 XuR 
O14) 4h 7 LO CoA 
Ol42 Ef “7 Poe AL 
olds RO 735 CALL MULT 
WL ade 7 EX DE, HL 
147 7 Pur HL ; : 
alae 7 JK CO LTS1 s1F OVERFLOW 
wlaA 74 Lo on 
O14 Z OR 
14g ? NK hz, id OS He RE: SULT NON-ZERO 
O14E eee ‘ LOI sSIGN ¢= POSITIVE 
CHOOOOD x 7 LTsoa: ALL ST DES 


O14 


(HE) FOR 


SETS LEFTMGUST 
e 


- 


AL taka By 


Lu: 


O’SZ 
OLAS 


O14 
OLAS 
Ode 
ops 
Opec 
OLSt 
JOLSE 
OD Re 
O1460 
“O16 
O2 
WIGS 
WL ed 
0148 
OLG? 
O16 


INNIS 
ay 


MINNIE RT ERE RED 


& 


be 


bore Sten Ce ibe Ded 


ecommoms 


Oh? CHCA: 
NOS 


= 


TO OOS Gos 
= 


¢ 
7 
7 
7 
7 
7 
7 
7 
Z 
y 
Z 
cA 
7 
7 
7 


NSININGSNINESY 


SSM tee gy: 
ua 
> 


Some Cams cae 


—_ — | ool eel —p 
ere! wt ; 


pore red ocd 


Mocmomeeod 
Ream eon 


Daw 
NSea 


SUME 11 /23/1982_1CC FAGE ¥ 
3 TATENENT ASM S.% 


FOF DE 
RET 


For be 


CALL FLOATZ 
XOR A 
CALL TOFIX . 
RET C- sIF NO. (HL) = 6 
EXX : a 
PUSH HL a? 
ExX 
PUSH OE i 
EX DEL HL. 
ee be he t® SA ts SIGN OF FRODUCT (8 ao “VE, ( +VE), CARRY RESET. 
a JE Til. 
JK Cy LMMOS 71F NO. (DE) = © 
» PUSH OL 
Pe SUMSLO 
IAs 
ENULTIPLICAT ICN ROUTINE SLIGHTLY ADAPTED FROM ZILOG LAPROARY« 
H*L“HLB’C*CA t= DE E“nex BC? CA. 


AND A 
Sh HL HL SCARRKY = 0, 


“USH HL $98 $HL t= OFFSET EXPONENTS 
SBC HLL $°? SCARRY = ©, 5 

EXX 

LO B33 

dk LTS4 


WRONG LTS 
ape t HL, DE 


Sper HL, DE 3° 

Es 

Fk H ow ie 

RRL we 

EXX 

RG OH 

RRL 

EXX 

RR i | ew 

RR OC 

EXX 

RRO 

RRA ‘ 

LINZ LTS SEND OF ZILOG ROUTINE. 

By ee a HL. SDE t= HL 

Be be s7° SDE s= Hh 

Far Be SRO t= OFFSET EXPONENTS 

“Ht 
GWE NOW CALCULATE THE OFFSET EXFONE NT. THE MANTISSA IS BETWEEN 
5 1/4 & 1, S0 THE REAQUTRED OFFSET EXPONENT IS THE SUM OF THOSE 
§ OF THE rt ALTIPLICAMNNS, -126 

LO ALB FA P= SUM OF OFFS eel EXPONENTS, IN THE RANGE 2 TO S10, 

ALL A,c i CARRY SET IF & 

IR NZ»LTSS SUNLESS A= 254 

AND s CARRY RESET ; 

LES A iNOW A TN JHE RANGE 1 TG S09 

Clr 5 CARRY IF A <= 355 

RLA ENT! 


ER HERE FROM CIVIDE. WE COMPLEMENT BIT 7 OF A To 


, 
i 


ARLTHMETIC SUMS 11/23/1982. TOC FAGE 10 
Loe OBJ CODE M STMT SOURCE STATEMENT. . ASM 3.9 
Q1AS SF Siz cor * ADD OR SUBTRACT 125 
O1A4 : e13 RRA SNOW .A IN 1 THE RANGE -127 TO 382, CARRY SET IF A <= 127 
Q1AS 9 FZABOL Rk & JP FYLTS4S 31F -137 A <= -) OR 128 c= A <= BSS " 
O1AR BOGS 3 JR ONG, ERRS SIF 254 <n “A 
O1AA AZ 3 *: ae a SELSE O C= A fs 127, RESET CAR 
O1AL ps o LTS45s 1 a SNOW -124 c= A <= 254, CARRY SEY IF A <= © 
O1AC 2008 _& AR abn eas SUNLESS A = O OR 254 
OLAE B04 2 AR COTS tIF A= OG 
O1BG fy EXX 
Okt CE7A Bit 7,0 eee 
OLES ty EXX 
QO1B4 205C . JR NZ, ERRE “SIF A= 254 & MANTISSA WON'T BE SHIFTED 
O1B4 77 LTS7s ££ CHL)LA 
QUE tee EXX: : 
OL bs 73 LO A.B 77. . ; . 
O1B? De EXX SDROPS THROUGH INTO NORM 
7END CF TIMES. ; 


ART THME TIC Suns ee eri ake eal FACE 21 
Lio OG CODE M STMT SOURCE STATEMENT ASEM 5.9 
#EJECT / 
NORM: ‘ sSNORMALIZO¢ 0°R< 
: 3 OFFSET EXPONENT. Fn (HL) TS IN THE RANGE -123 TO 254 WIT 
3 DARRY FLAG SET YF NON-POSITIVE (EXPONENT © WITH CARRY Eas 
3 OFF MEANS EXPONENT 256) 
sO STORES TES WE TM IMeats: weer CHEL44), 
$ § SIGN (0 +VE, GOH —VE) 
3; TOP OF STACK 15 MES A FLOATING POINT NUMBER 
3 IN STORE, THE CRIGINAL DE (NB NOT A_RETURN ADDRESS. Meet 
3s CANNOT BE CALLEN. BUT MUST BE JUMPED OR DROPPED INTC. 
: o. eR THAT THE ANDRESS oF THE NEXT CALCULATOR 
Sy Lm) 
: fe Hee POPS THE TOP OF THE STACK Ta DE, & THE NEXT 
: SMASHES A, EC & 
oe ENTER AT _NORMC “aR NORMNE TO qvorD THE CARRY FLAG SWITCH. f 
OLA a lik NOs NORPIde! sIF CXPOMENT IS POSITIVE. 
NORMCs 3ALTERNATIVE ENTRY POINT TO NORM, . 
Raith : peas HL.) EXPONENT t= © & SHIFT RIGHT. 


LIMO: 


LNMOS: 
LNMOSs 


NORMNC + 


yb 
ols 
Oib4 
Dus Arad 
w1hi7 
ne 


Oo LNMZs 


VLEB LINMH43 
OVE 
OLE 
O11 
OLS 
O1E4 
O14 
OLF7 


LB fy SOW 


RZ, LNMOS | 
OA 


EX 
AN D 


oe SC RaS 


JR NZ» LNM4 
RLCQ 


(HL) 
LNMOZ 
ThAZ | CNM 
He CNS 


RLA - 
JK ONC LNMAS 
ESL RNGUP 
JR ONZ) LNG 
EXX 

Lo th, B0H 
EXX 

TNC (HL) 


eh NON-ZERO. A = O, 
BN MUST EE +VE 


1 OL TERNAT IVE ENTRY FOINT TG NORM. 

yr EXPO +O (0 COUNTS AS 256). SHIFTS DL’ 
$ THAN St ee UNTIL EITHER LEFTMOST BIT = 
+ EXPONENT 


eve 
, 


s1F NG LEFT SHIFT IS REQUIRED, 


31F GFFSET EXPONENT TS DOWN TO Oo 


SIF RNDUP DID NOT GENERATE A CARRY 


eve 


? 


1 


E‘DEA LEFT NOT MORE 


OR OFFSET 


re ore omy 


spore sere 


SUMS © 11/23/1782 TCC PAGE 12 


ARITHMETIC 

Lo WE CODE-M SINT SOURCE STATEMENT ; ASM 5.9 
OLFS 318 B94 oft 7+ ERR 2 

O1EA 6e5 LNM4S: Pus | FL +STORE MANTISSA.: 

OLFE ING HL 

LEC EXX 

OLED PUSH DE 7 

O1FE XX 

LF POP Be 

i Lo ALE tA be OD, 


-_ 
> 


sSCOVER UP THE TOP BIT OF A WITH SIGN (FROM (HL)). 


a 
Lt (HE) Cc SCHL) t= EY, 


= 
= 
oe) 
- 
= 
~ 
. 


NEE NC are ee Sh I NTE Ne o 


STC NIN BONIS Se Ce SS RT 


im 
re 
— 
oT 
“ 


SEND GF NORM. 


ERRGs RST ERROR sCALL: ERROR 6. ARITHMETIC OVERFLOW 
fener 
iE Et 


or 
en 


he 


ARI THMET 10 SUMS VA/ 23/1932 700 PAGE 13 
Loc 08d CODE M STMT SOURCE STATEMENT ABM 5.9 
\ 923 EJECT ; 
924 


DIVIDE: SELGATING POINT DIVISION, (HL) /t= (DE), * 
SSMASHES BODE’, PRESERVES DEHL 
beth 
: SA WILL HOLD THE SIGN OF THE QUOTIENT. 
1 “THF IX 


TERRE sDIVISION BY O 
es aH 
1. TUF IX 


cLFaoZ fk 
Ek 


. SBEME 
ine 


wiki 


S04 K 


ho 


sDIVIDEND = © 


we 


PACT Uo Se 


Hi : 
SUMELOD VE CCER = DIVIDEND, BEDE t= CIVISOR, 


ro SOF FSET EXPONENTS 
He ns 


one 


SmooMpemocome,: 


=. 
co 


SHYLA HL b= DIVINENDS 
SINITIALIZE PLACE COUNT. 


na - -. 
Oe Age Lee 


ODoe oe 


LDES: gRL HL HL BOCA 
a 
gee 


EXXx 

ALL HL dL 
Exx 
ALL HLy Hk ia 
EK 


SR LE 4} SIP ROTATED OFF THE TOFS FAKE 65 BIT ACCUMULATOR. 

LDEZS: 5 : sCARRY IS OFF. 

— ae i 

EAX eee ae - 

A ME Ley S 71 SUBTRACTION WAS Or, 

AL HL. De 

XX 

ALC HL, DE eae 

Uk x 

AND s7TO RESET CARRY 

AR LES 
LDE4: AN A 2 570s RES SET CARRY 

SO Hb. DE 

XX 

SE HL DWE re 

EXX 


SHERE IF CURRENT BIT OF ANSWER IS 1. 


XED POINT. QUOTIENT, ONE a TOF TWO BITS GN, 
{TS IN CARRY ON STACK 


ARITHMETIC : SUMS 11/23/1782_TOO PAGE 3 14 


Loc OB) CODE -M STMT SQURCE STATENENT : \ ASM 5 ov 
SF a3 Lo ELA tHE“ DE t= BY CAL 
ba | 3? LO O.C : 
ty w xX 
ae ae Lo EC pee Me 
pate) ce LO I, ao 
FA 2 FOP AF re 
tbhia 3 BB ate 
Fi F FOr AF 37° . a 
CHIS RFE ES 3° ° 3FOR NORM. R 
We) EXX —_ 
C1. POP BAC 
El POF HL eos ee 
: wuss sWE NOW GALCIAATE THE OFFSET FONE: THE MANTSSA is BETWEEN 

3.1/2 & 2, SO THE REQUIRED OFFSET EXPONENT IS THAT GF THE 
. _ $s DIVIDEND — THAT GF THE DIVISOR + 16 28+1. 

oz74 - 7é Lp A.B - 

o27h Fl : SUE C INOW -254 ¢= A <= 254, CARRY SET IF A <= -1 

276 CBAZOL RK : oP LTS4 . j 

1008 SEND OF DIVIDE. 


ARLTHMET IC _ SLIMS LA/EB/ 1982700 FAGE 15 
Loc OBI CONE M STMT SOURCE STATEMENT ASM FL? 
1007) #EJECT 
{OOS 
1009 TRUNG s i TRUNCATES A FLOATING eg ald NUMFER xX TOWARDS ZERG TO AN c 
x s INTEGER (SG FOR EXAMPLE “ae By BECOMES -4). WE WRITE XE.X1, 
§ XZ, 14.2 Xl Aaa THE BYTES C1 
+ ON ENTRY, HL XE DE > xXhet. 
SPRESERVES DEHL 
LO A, CHL) 
AND A 
RET 2. TIF ALREADY AN INTEGER 
lay 
JK Meet TCE “STF EXPONENT (NOT rset > Oo. 
LO (HL), sEXPONENT BYTE 3s= 
“e AssetNostze- 1) $ax (NOSIZE— i) BITS GF MANTISSA TO BE DELETED. 
Pa ay WS . 
LING 1: sWE FIRST oto TRUNCATE INTO INTEGER TYFE. THIS 15 POSSIBLE 
$ IF THE EXPONENT IS 16 OR LESS, GR (WITH EXPONENT = 17) IF 
i THE TRUNCATE T NUMBER Ih -SHe ei, 
CP L217 
JKONZ,LTNGZ SUNLESS EXPONENT = 17° . 
INTEGER TYPE TRUNCATION P PUSSIBLE IF X1 = GOH, X2 = GQ, & X39 HAS 
+ KIT 7 OFF. 
INC Ht. 
INC HL 
TN VL : 
LO A. SoH 
AND (HL) 
LEC bil. 
Gr CHL) 
BC A ; ; 
AR NZ, LINCS SUNLESS X2 = O & XS HAS BIT 7 GFF 
LO A, SOH 
rae (HL) 
LINCLS: BEC HL ; 
IK on ret aad $1F INTEGER TYPE IMPOSSIBLE 
EB ALY SA VXE rs 6 
THC: 
ae iby, 2OFFH 
LS 
Lo A, ee -“Z) . ’ . . Bs 
IK LING 370 ZERO BYTES X22, 2... » XL 
LTNC2: ww ONC LTNOS iIF “EXPCINENT > 17 
oo DE i 
CPL 
ae aenrts sA t= NUNEER OF RIGHT SHIFTS REQUIRED ON X1 X2 
Lit i, (HL) sO ss X14 
TNC HL. ‘ 
LE, CL) 3E se Xe 
t HL. 
I HL 
LOO 
BIT 730 i . 
AR Z2LTNCZ2 3IF NUMBER >= © 
Dee . 
LINCZ2: SET 7,0 
LO hs 
SUE 
ALD ALE | : : 
AR > LTNCZ SIF A «a & 
A LD EB 
Osh 14900 1070 Lo 0,0 
Cea Be aid " ME CW ge he 1 oe eng 


4 


AKL THMET 1c 
Loc 


OB) CODE " STMT 


1OFA 


. Chogoe xX 


Shome ns 


Nie Nem 


GMA De Mo: 


IF BOS K 


ma 
ba 


WOOO x 


zo Born 


E 
7 
ie) 
5 
“146 
FP 


HIDNON Nite 


SuUpes 
SOURCE STATEMENT 


LINCSS: 


LTNC4s 


LINCS: 
LINCSS: 
LINE: 


FLOATZ: 


LF2_5: 
FLOAT® 


LFTZ: 


11/23/1962 700 FAGE 14 


AEM 3. 


hi INE LING 8G 
CALL STOEL 
rate tne 

RET 


Lb Ay CHL) 


oi Sh. FLOATING POINT TRUNCATION 
i IF WEXPOMENT "= Ge (NOSIZE—1) 
3A a= NO, BITS TO BE DEL LETED. 


jos = NO. WHOLE BYTES To BE NELETED. 
sIF MO WHOLE BYTES TO RE DELETED. 
SDELETE A BYTE 


fi 
baNz ob THca 
ANT 


olf LINCS 
Co B.A 

LU A,-1 
SLA_A 

DINZ LTNCES sA_HAS 16 
AND (HL) 

LU (HLA 
EX GE AL 
Por GE 

RET aw 


SAPPLIES FLOAT TO BOTH (HL) 

CALL LF2 5 

EX BE, HL Lae 
CONVERTS NEMEER (HL) TO FLOATING POINT FORMAT 

iE. i 
LU As (HL) | 
arth te 
T SIF ALREATY eae FCINT 


§A_3= NO. 
sIF NONE. 


BITS LEFT FOR DELETION. 


S AT TOP FOR BITS 
§ FOR. THOSE FOR DELETION. 


& (HE) 


ey 
LODE 
| 
A 
A sZERO LAST THO BYTES 
+17 sE = 1 + OFFSET EXPT FOR 2eei 5 
FTZ  31F WS BYTE <> a | 
s sb t= 0 i 
-FT4 3IF NUMBER = © 
OLE 
SSHIFT DE 1 BYTE RIGHT 
9 $B t= 1 + OFFSET EXPT FoR 2eH#7 


TO REMAIN, af 


AT BOTTOM. 


AM OVME TE (Me LASS VOR 
Lin Obs Ou M STN SOURCE ATEMENT 
ee LETS: Der B 
ADD Hh bb 
NGL LFTS 


ee A 
ae 


Sag’ 

peed 

Cea 
pee Se CUE NS LF Bod he 


aS 


LFT4: GE FIL 


Mi ral Mekxdh ral ssi net ext 


40 (HL 
BEC HL 
LE CHL) 
Wet PE 
RET 


CNG 


rae oar 
Sebi sasr 


Sie Se 


eS 


ie 
; 
72 
Z 
fh 
C 


il 


rah fh feet rn amb fet fants fi fo wt fh fc eh ft fh 
Sdapmlsunl aad amnlconh and ome amkonnd eked onload at oetar’ 


tne 


FO CKET CALCULATOR. 


iit 


OOo 
Oooat 
Ougz 


O03 


4 
rayatiye] 
0006 
Ooo? 
Ooo 


OOOF 
OOo 
OOOL 
OOO: 
Ooon 


QOOE 
OooOoOr 
vO1d 
OO1L 


OB EODe, 


~ 


M STMT 


DBHHHLHS 
et he Re eee 


at 


CONE CRG 


CALC 11/23/1982_TCO PAGE 1 
SOURCE STATEMENT “ASM 8.9 
#HEADING POCKET CALCULATOR. 
*LIST ON ; e. 
GLOBAL ARRAY, CTRO, ee et ne ge tr ANTE aol 
EXTERNAL SELECT. SELL. INCH sEDIT 
EXTERNAL SYNERR: FIXCUy CriccS2 TEMG, ERRB. FIX U1 s SYNTAX 
EXTERNAL -EXPRN iEXPRN 
EXTERNAL PUrSTR. PSHSTR, ALPHA? sIDENT 
EXTERHAL XEY. oT A, STK EC, PP2BC, FP2A, OUTPUT, LODE, STDE_S PINGUT 
EXTERNAL AGL. fIVIDE, 1B TIMES» TRUNE, FLOAT + SUMS 
EXTERNAL TAN, COS. EYP. INT, INTDIV, LN, TO. THE ROOT, STNANGLE = §FLINCTS 
EXTERNAL = ASN, ACS, ATN 
#CALCTR HAMLLES @ STACK & @ MENGEY ARFACF FLOATING POINT NUMBERS IN RAM. IT 
HSEPHAUT BUY EEPTING THE BYTES TEXTUALLY FOLLOWING THE CALL THAT STARTED IT OFF 
ba STRUCT Ts ‘t 
$) CALCTR TAKES A COPY “AY LOE THE ft REGISTER ON ENTRY: .£ USES THIS AS A LOOP 
COUNTER Yi TH Tie’ COMMANDS LOOP % VECTOR. GN EXIT: THE (POSSIBLY NEW) VALUE OF 
s(BREGY 1S ve (] rs. 
; A-POINTER To A STRING TS HELTON THE CALCULATOR STACK USING THE 1ST 2 BYTES 
iFOR THE ADDRESS OF THE 1ST CHARACTER & THE 2ND 2 BYTES FOR THE LENGTH. 


CONS TS rere 
OCF IS 


DEFE 
NEF E 


HEF E 
DEFL ¢ 


DEF 
DEF E 
TF Et 
DEF E 
WEF Tt 


DEF Et 
DEF i 
DEF ES 
DEFL 


SCALCULATOR CONSTANTS. (ASSLMES 
Oo” CONSTANT O = 0 33 


NOSIZE <= 15.) ‘ 


u 
- 


Lr ae sCONSTANT 1 


Mt 


t ; 
45 - SCONSTANT 2 = 1/2 
i) 


ODOHA4D H 
O4ZH ; 
OF H 
ODAH 
OAZH 


1. StL. 4 
-&0 


So 


FOCKET CALCULATOR. 


Loe OR CObE M STMT 


CAOZ 
771 
DO 
0000 
. OOD 
ot “the ’ 


OOO 
OOOO 
adog 
Ono 
OOOO 
Oooo 
on OD 


Oo ry te) 
OOOO 
DOO. 


a 


R 


BESHSHSSHSHLSSLSLELSSALHSD 


AIAN TV IS DSI 3 FI HK BT SII SST OS OK HE CTI TD 


De 
SCONE CLR Cokie CN hs 


oe 


i 


cae 


Print 


PSSSSHSOD 


CUI OM Ob labo ON 


$2 


Ss 


», 


Dred et Rd ad red tral 421 8 


LN 


We 


SINISE NSE ND 


PBHHSSAPSHHAHSASLHHSLH LSA SS Sppsee spe 


SOURCE 
HE JECT 


LISTOs 


LIsT1s 


cL PibtC a V/23/ANS2_7TCC FAGE 2 
STATEMENT ASM 5.9 


WALDKESSES OF CONE FOR COMMANDS THAT 


es 
a ‘veer STRING OPERANT 


SARIN $s DLIF 
(Mitiv 


sLITERAL 


CODE FOR COMMANDS WITHOUT STKDWN. 


on 


Th 


11/23/1982 700 Pp 


FOCKET CALCULATOR, . CALI ABE 3 
Lin OB CODE M STMT SOURCE STATEMENT ASM 5.9 


OORA OOOO X DEFW XEY 
Ose a00d x GEFW FLOAT A 
LIST2s J3CODE FOR 4 COMMANDS WITH BUILT IN OPERANDS. ; 
R DEFW CBSY 
R HEFW ST 
Kk DEFW COPY 
R DEFW MEMORY 


POCKET obo eobe fr CALC 11/23/19782_TCC ‘ PAGE 4 
“OL 


LO OBI COME M STMT SGURCE STATEMENT 2 ASM &.9 
205 HESECT 
mA, . 
S07 s ROUTINE CALCTR Ta OPERATE THE FOCKET CALCULATOR, CALLED BY 
SOs 7 RST 40 IN MOMULE BasIc. 
Sv $ ON ENTRY SETS CEREG) c= B. 
Sic 3 SM %! Af & ANY REGI: ao SMASHEL BY THE INSTRUCTION 
sid 3 SUB 7S. EXCEPT THAT I> ALWAYS FRESERVED, & B IS 
te 3 FRE ERVED AS LONG AS THe SUBROUTINES ARE CAREFUL WITH 
this i SEL) 
14 300M RETURN, HL -2 TOP oF CALCULATOR STACK, DIE -> NEXT FREE 
co 3 SPACE, & B t= (BREG), 
S14 CTROs s HERE FROM RST 40 & NOWMERE ELSE 
OIG COF AQ? R S17 | CALL STEETR 7 ; otis 2 
- 7 215 CTRIis cb ALB PAWUST LIKE CALCTR, BUT OM ENTRY LEAVES HL. & DE ALCINE. 
ba : Ul Aly i é . 
BLA75C Pe ai Lg (BRED) A Paee iwlalt eee . 
BS : CTRe: ENN S4UST LIKE CTRI1, BUT CN ENTRY LEAVES (CEREG) ALCINE, 
yf : =) 
Ue ER (SP) HL g°° GHL f-> CURRENT SYMBOL FOR INTERPRE TATION, 
Vo : =) 
Eb iBGS5C RUNS WELD CSTENXT) DE  SURDATE (STIPE eae 
bi EXX SNOW WE INTERPRET THE NEXT INSTRUCTION. 
DOS 7E LD a hee aa 
ORE 23 ING | 37° $HL t-> NEXT SYMBOL. 
NW ES RUNIs PLUSH TL nen ‘ 
A7 a A tes 
OONe FEBBOO pT pe" SIF CONMAND DOES NOT CONTAIN BUILT-— IN ARGUMENT. 
7 ““ $®& = IXXYVYYYY WHERE Xx = COMMAND CODE, Pare = ARGUMENT. 
QOL 37 Lb fa ae 
OoAL E460 AND 40H 37" $A t= OXXO OOOO 
OORF OF 37° 
OOHO OF | es 
OBL OF ad : 
OOS ze OF RRCA 37° 3A f= OOOO OXXO 
F3 C470 AL ALLIS sT2-LISTO $0 % 
éF LOLA ow 3“ 
7A Lo A.D 7° eer 
GG1F ANG °° GA b= OOO YYYYY 
1S0E AK 3° , 
FELS LANs CP (LIST1 A aah Ge eae 
eae AR NG: LANG “? SIF STEGQWN 1S NOT To BE EXECUTED, 
My 
OLF BFF STEDWNS LO BC, -NOSIZE 
4 CD fis 
Sp LO Est 
oy ADD FL, BD * 
Li'y Le EXx 
OF LAN3: RLOA tA KES = (TOF BIT WAS 0), 
&F an (BLA 
111200 LANSS: LO ME,LISTa 
2400 LO OH,0O . 
OOE ? AUD HL, TE 
QOL LOE, (HL) 
TN HL 


LO fy (HL) 
Lo HL. RUN 


SHEL tb NEXT INSTRUCTION. 


ack LD BC, (BREG-1) 3h ee CBRE) 
OO Cur: LOSE: 5G0 OFF Ta CARRY ot INS a eleen RUN TS STACKED AS 
5 RETURN ADDRESS. FL, DE & CETENXT) ARE STACK 
$ POINTERS (HL ,-> TOP OF : stack. DE = (STENXT) -> 


POCKET CALCULATOR, 


Loc 


oOogg 
WOKE 
CWE A 


OOEE 


EI CODE M : 


Fi 
BAGTSC 
be 


1303 


LS 


ES 
O10S00 
OQ". X 


eeeee 


potbat fet Caan Bene 


STMT SOURITE 


XEQTE: 


Sou SKIS Se 


oh 
i7 
72 
Z 
7 
17S 
=? 
57 
57! 
73 


ROOM? 3 


CALC 11/23/1982 700: PAGE a] 
STATEMENT ASM &.9 
i NEXT FREE PLACE, EXCEPT THAT FOR THE By hasig 1ONS iN 
s LISTO, HL NE HAVE BEEN DECREMENTED BY Ni ZE BU 
§ (5 XT) HASH! T), Fo = CBREG), ° 
ach ?—_IF THE INSTRUCTION. WAS 
$ “1. =“ THEN WE HAVE DONe EXOEVAHING NECESSARY EX- 
so IDYING UP THE 780 STACK. ) 
SEXECUTES (PREG 3 A CALCULATOR INSTRUCTION, RENT ON 
3 AFTERWARDS WITH ate INSTRUCTION ACTER XEQTB 
PoP AF sTO WASTE RUN FROM THE 70 “STACK 
LO A» (BREG) 


Jf RUNI 


SABORTS, ERROR 4, UNLESS Fi ROOM FOR NOSIZE BYTES TO BE. INSERTED. 

ie WDE § SMASHES A, PRESERVES GEHL, BC s= NOSIZE. 
$ De) 4 : . 

PUSH HL 

LO BC, NOSIZE 

CALL CHK_S - . 

FOP HL ; . . ‘ 

POP DE : 

RET 


FOCKET CALCULATOR. 


Loc Ob CODE M. STM 


QOEF 
QOFS 
OOF S 
QOOFA 


OOFR CDEAOO 
QOFE EDBO 


o106 CF 
O10L 62 
O102 6B 


CHE400 K 
ite 


PERERA OO 


PRED 


LROZ: 


CALC 11/23/1982_TCO FAGE 4 
T SGQURCE. STATEMENT ASM f.7 
HEJECT 
THE CODE To EXEC UTE THE COMMANDS y WHICH FOLLOWS, TAKES THE 
3 FORM GF SUBROUTINES. ANY SUBROUTINE MAY BE USED faa Soap AS 
3 IT TAKES coon CARE OF DE (AS CALCULATOR STack Pa 
3 ER), HL* (THE CALCULATOR PROGRAMME COUNTER) & CBREG) (THE 
3 CALCULATOR LOOP COUNTER). 
STK_M: FFPUSHES AN LNFACKED -ELGATING EOINT #9, POINTED AT BY HL ONTO . 
i] THE CALCULATOR STAC 
SUPTDATES CSTENXT), DE s= NEW (STKNXT). 
HL +2= NOSIZE. 
agree SABORTS IF NG Room, 
LO DE, CSTENXT) 
CALL RANNG 
Li CSTENXT)». DE 
“RET 
RAMNGs SCOPTES. UNFACKED FLOATING POINT NUMBER STARTING AT (HL) Ta 
+ (TE)3 LL A HL & DE Ty POINT anes BEYCND THE ENDS OF 
3 THE NUMBERS 25 . 
+ SMASHES A, BC t= GO. 
CALL ROOM? 
LOR 
RET 
LITRL: ale HES AL PACKED FLOATING POINT NUMBER POINTED AT BY HL’ / ONTO 
THE CALCULATOR ree 
: ON RETURN HL? POINTS AT THE NEXT BYTE AFTER THE NUMBER, 
3 DE & HL abba BEEN INCREMENTED (AS CALCULATOR STACK 
7 FOINTERS) & A & BR ARE SHASHEN. 
LG HAD 
LO LE AROUGH INTO ROMNG, 
ROMNO: . DATING FOINT NUMBER STARTING AT (HL*) TG 


HL’ & DE TO POINT JUST BEYOND - THE ENDS OF 


a 


7 


SHES A & B. . 
: ae Paver THE J2T BYTE VS. eS WHERE XX = NUMBER 
GIVEN BYTES IN THE MANTIS 1. IF_YYYYYY = © THEN 
E Be peeks TS THE OFFSET EXPONENT ~ #0; OTHERWISE YYYYYY 
THE OFFSET EXPONENT - 80 (FOR WHEN THE OFFSET EXPUNENT 
IN THE RANGE 45 TO 127, INDICATING AN ACTUAL EXPONENT 
THE RANGE —47 TO 15), 2 
TER THE GIVEN MANTISSA pr ieo: THE MANTISSA IS TO BE 
THLED IN WITH OS ON THE RIGHT. ; 


woe sae ste an woe we we we wedup woe ve 
Nd 


RZ 


r-i 


CALL ROOM? 


CHL) 


NG 4s {ti 


Cc . $0 35 NUNBER OF BYTES GIVEN IN THE MANTISSA. 


aaa eee 
he 
as 


JR NZ LRO2 31F EXPONENT IS BUILT IN TO A. 
- 


ALG A, SO iA c= OFFSET EXPONENT 
LO (DE).A 


ae 


7 tee ye 


ns. 


of; 


mr 


Ti 


e 
cH 
=. = 


cos 


C 
E 
F 
a) 


QOL4al 
0142 
O143 
o144 
O14 
O146 
O14 
O14g 


O1LS6 
O37 


ome fe, 


CALCULATOR, C 
Ob CODE M STMT SOURCE & 
BEOS b5 
D1 &57 
23 ASE 
3) ASS 
a600 640) 
EQRO bE 
C4 6b 
ES 443 
Dy b64 
Et 465 
Ly 646 
47 bA7 
AF ' 668 mate 
OS 449 LAOS: 
Cy x 470 
12 471 
13 G72 
1oFA G73 
474 
475 ROMSKFS 
476 
477 
473 
479 
680 . 
41 LARPS 
R 
ARRAY 
ar 
v7 
7 
1 
4F 
04600 
OW 
Cy 
MEMORY s 
0S 
SAGESC 
C41 fR 
CIF BOW R 
Et 
cy 710 
Ziti 
7120 CONST: 
713 
714 
4&2 715 
GH 71S 


“5 


Lc 11/23 /1782_TO PAGE 7 

TEMENT ASM 3.9 

LOI Ax NOSIZE : 

SUB C $A ¢=. NUMBER OF TRAILING O53 + 1, 

INC Fi. : 

ING DE : " 

ee ah SBC = NUMBER OF GIVEN MANTISSA BYTES. 

mA 

POP BC 

EX (SP),HL 

EXX 

FOP HL 

EXX : 

Lo BAA . : 

xOR A pA bs O 

DEC Et ’ i 

RET Z SIF ALL THE TRAILING OS HAVE BEEN PUT IN, 

LO (BE)A : is 

INC BE 

AR LRG 3 
MOVES THE POINTER HL.“ Haye A FACKED FLOATING FOINT 
3 NUMBERS (SEE ROMNG). SMASHES A & B. 
owt TT 1S ASSUMED THAT PACATION QO IS AT THE BEGINNING OF 
3 A LARGE BLOCK (AT LEAST A#NOSIZE BYTES) OF ROM & THAT DATA 

AND A § CAN BE SAFELY LOST BY READING IT INTO THIS AREAL ### 

RET Z sIF A= QQ, 

PUSH AF 

PUSH DE 

Lo TE, s 

CALL ROMNG SREADS A NUMBER INTO ROM. 

OF DE 

POF AF 

DEC A 

AR LARPS 


WL o+8= AXNOSIZE. 
ERT NEST ZE=s 
NOT. (NOZIZE 
Kh IN ASSERTION NOSTZESsS 


oT 


ATS 


1A: 
PUSH DE 

LO tik, (MEM) 

LL. ARRAY 
hve a" hie taed 


LO HO 
LO LE 


oo 
a 


IZE=5) 


ONTO THE CALCULATOR STACK 
RAM) ae AT BY (MEM). 


HES ALE & 


ONTO 
EMENTS 
ES A, Bt & 


Lg CALLULATOAR STACE 
tL & DE AS 


SMASHES 


A B&kC. 


THE 


“THE 


THE A°TH NUMBER IN THE AREA 


CONSTANT (IN ROM). 


CALCULATOR STACK POINTERS. 


POCKET 
Loc 


OLeE0O 
OLSZ 
OLGS 


CALCULATOR . 


Ob CODE M STMT 


by 
ES 
ZLOQOO 
ty 
COSB2O1 
CHO301 
gy 
E 


21 
by 
Se 


o 


Vor nboc] we 
‘pail 


IF BOO 


OMMOMCwMM 
HESSD e 


= 
¥ 


Th ee bot TF 
Mm Sie toe 
basi 
“N 


oi 
i 


WNESNUININSS 


ad 
4 


1 
z 
4 
i 
Z 
4 


MISSIN SNNSINNNNS 


SPH SSHSL 


chonen 


CHUL 


1s 


qian 
See NP As he 


“N 
nd 


SOURCE 


COPY s 


LXCH1: 


CALC 
ST 


Ree erbek 3e 


c 11/23/1982_T0C PAGE — 8 
TEMENT ASN 5.9 
XX 

UH Hl 

.D HL, CONSTS ; 

XX 

FALL ROMSEP 

"ALL ROMNG 

XX 

‘OP HL. 

XX 

ET 


WPIES THE TOP OF THE CALCULATOR STACK INTO THES SPACE 
AREA POINTED AT BY (MEM) (KEEPING THE NUE R ON THE 


nt 
HL HEM) 
He AK ria’ 


ia 


MDa iio 


HE TOP TWO VALUES CF THE CALCULATOR STACK. 


SELLY. Eh HL & Be = 
& Y IN RAM. ON RET! 
=D, & NL & PE ARE I 


RN, THE CONTE 


is NTS OF X & Y 
NCREMENTED BY NOSIZE. ) 


Ce Seis we ue oe 


INNZ CXC! 
COND Nos oe. Man. 2 
3 


st 
ay DE) HL ASSEMBLED IF NOSIZE IS EVEN. 


FOLKET CALCULATOR. ; CALC AL/ 23/1982 TO PAGE 4 


Loc OR CONE: M STMT SOURCE STATEMENT AIM 5.9 

64 HEJECT . 
Coat 2 

743 CBSVs SUMS A TRUNRATEN CHERYSHEY SERIES ‘ 

FE4 S$ = 24#(SUM (N = 0 TH N) ACNI#TEINI(X)-ALCOI/21. 

765 A CALL LAKES Bete FORM (FROM WITHIN THE CALCULATOR) 

Tha DEF CESVitNe+d 

462 ACN 
inst . 

as . THY COEFFICIENTS ACN] IN FACKED FORM. 
) * . 

771 ACO 

‘ 772 X ON TOP OF THE CALCULATOR STACK TS REPLACED bY 5. 

773 WEES MEMORIES O,1 & 23 MAXIMUM STACK DEPTH = 3. 

774 CN ENTRY A = Neti. 

- 775 SMASHES EVERYTHING € EXCEPT Ft. ow ENTRY & RETURN, Hl. -> TOP 
7b OF CALCULATOR STACK & DE -> NEXT FREE SPACE, & ON A gl asa 
oie HL.“ > INS TROCTIAN ‘AFTER THE LAST COEFFICIENT ALO] 

=] 
V7? x A keg USE TS S FOLLOW WE DEFINE 
73 N+i] = BC N+? a 5. & FOR O& <= N a 
he NJ = 2eX#BCON+1I~- ~EE NAZI +ACNI. THEN § = BCZI-BCO), 


s(BREG) s= 0 


e SMEMORY © &= ZHX, s 
Og . : 
AQ 50 

O1sb m2 


OP OF STACK = BCBI, MEMORY 1 = BCR!2) (EXCEPT 18T TIME 
ne ¢UNEN) & MEMORY 2 = BEB+12. 

OLS F 
OLSF 


sMENORY 1 f= Cred » 
;TOP 2 ON éTat K = BCBI, 2#X*#BCBI-BCB+1) 
K SACE-1 STACKED 
R i Ri 
% 


ATHER THAN CALITR, qos a cag hd (BREG). 


TAP 2 ON CALCULATOR STACK B(BI, BCB-i). 


sMEMORY 2 38 BLED. 


Lor peta 

O1AG EE 

OlAL El ae 

OLAZ (ot 3S = BCOI-BCZI 

OLAS 33 és . 
O1LA4 Cp 


SEND OF CBSYV, 


Fogger CALCULATOR, CALC 11/23/1932_TO0 PAGE 10 


OBI CONE .M STMT SOURCE STATEMENT ASM S.9 
G13 MEVECT 
G15 ABS: IREPLACES THE TOF OF THE CALCULATOR STACK BY ITS ABSOLUTE < 
817 SFRESERVES DIEHL . 
O1AS  O6FF Gig LD B.-1 
OLA7 = 1806 : JR LNES 
NEGATE: SNEGATES THE TOP OF THE CALCULATOR STACK, 


% iPRESERVES PEHL 
OLA COS402 RK CALL TESTO 
RET ¢ 


OLAC Ds “SIF ARGUMENT ZERC 


Orage O600) LO BO 
OLAF 7E LE A» (HL) 
OLBO A7 AND A * 


OA THOR 
OLS 23 


3IF NUMBER 1S INTEGER, 


COM PEL EMENT (FOR NEGATE? nad RESET (FOR ABS) BIT 7 OF 
; ACCORDING AS B = 

O14 7& 
OLE E4G0 
O1B2 BG 
Olba 17 
OLB? SF 
O1BA AE 
LEE 77 
OLB 28 
OLED Cy 


ate 


OOOO x 


bop HL 


numome 


HS Cm ee Ch 


> ts 


THE FLOATING POINT No CHL) BY ITS SIGN -1,0 OR +1. 


Oop COS4Oe K C: 
Orbe Ls R 
Gib (05 F 
ae oe Lio1089d L. 
Os 23 I 
OLLé COAG RK 
a 8 bd Es DEC 
oiby 7 a Sit 
ODA 4F LO C.¢ 
Lib EDAD x CALL 3 
OLDE td FOP DE 
ODF ie RET 
OVO CLO Xx CALL FIX uU 
O1E3 E73 1 IN Ake) 
OES 1804 2 JK LFES 

3 

4 PEEKS . 
OLE7 COO x oi] CALL FIX 
O1EA OA, és LO A, (BE) 


, ¢ . . pom aes we aes LN HM ge eo gre os web pe my van i CO a eo ce oY ee re na See asee Oe enemas 


POCKET CALCULATOR, ae _. GALE = M1/22/1982 TCC PAGE 11 
Lae: GELS Lae M STMT SOURCE STATEMENT ASM S. 
O1ER c30000' xX 7 LFK2: JP STELLA : 
‘ t 
tea | Bae, USK: : 
O1EE CHOI x CALL FIX u 
OF L 210000 X LO HL STRKOBC 
O1F4 ES FUSH HL PSTACK RETURN ALMRESS 
OFS CS PUSH Eot aon 
OLFS C? RET SUMP TO START OF USER ROUTINE 
USRSs SUZR WITH STRING ARGUMENT 
PRESULT, Ae THE ADDR OF THE 157 BYTE OF THE BIT PATTERN FOR 
5 ER-KEFINED GRAPHIC SPECIETEE BY ag 7 Gaee ARGUMENT. 
§ THE ARGUBENT NUST BE A SINGLE CHARACTER, T MUST BE EITHER 
5 USER-OCFINED GRAPHIC OR THE CORRE SINT NG LETTER (UPPER 
eee : 3 a LOWER CASE); ABORTS ERROR A OTHERWI ISe€. 
COOGIG x = 
op : 
¢1F LENGTH <> 4 , ‘ 
ae mi) $A s= CHARACTER : . 
MR : 31F LETTER 
ae ene : an 
IF ¢ USER-DEFINED GRAPHICS ’ 
iIF > USER-DEFINED GRAPHICS 
LUS 33 iE: 
ALE ALA 
ADD A, A . ee ’ 
ALL ALA iA t= & * FOSN OF LETTER IN ALFHABET (°A* = OTH) 
Oo Cr ae (TOKO WOH) 
1 JR ONG, ERKA tIF LETTER WITH NO CORRESPONDING USER+DEFINED GRAPHIC 
Piz: Lo BC, CUD) 
FAS ALL Ast SNOW MARE Eur +25 
214 LO C,A 
PLS JR ONG, LUSS 
PLS INC B&B 
C30000 xX oi LUSSs JF STRUE 
91S 
: P19 ERRA: RET ERROR sERROR Ay INVALIL ARGUMENT 
O222 CF 7 RST Bence { 
OZ23 op 220 DEFE 
| 
{ 
} 
| 
4 
q 
| 
i 
“ Dt ERAT) af pe 


ae 
FOLKET CALCULATOR. : CALC 11/23/1982 TCC PAGE 12 


Loe OBI COE .M STMT SOURCE STATEMENT L ASM So 
p 1 #EJECT : i 
TESTO: sSETS CARRY TF hr leet (HL) IS 0 
‘ pen sFPRE SER VES ABCDEHL 
ES PUSH A 
3 PUSH Et ; i 
47 LD BLA 
7E LO A» CHL 
ant INC HL & 
B4 OR CHL) ‘ 
3 NC HL 
BG GR CHL) 
23 C: {} 
be, OR CHL) 
78 DALE 
aay POP Bo 
El : POP HL . Peed pelos 
co RET NZ S1F NUMBER NOT ZEROs CARRY CLEAR 
37 SOF | 
i RET 
: FLUS?s SREPLACES THE NUMBER x at CHL), ‘ i . 
5 BY THE BODLEAN VALUE (X >. (TRUE = 1, FALSE = 0). 
TPRESERVES DEt 
sCPRESERVES Ee 
Coe 4o2 K CALL TESTO ; se 
De RET ¢ 31F NUMBER IS ZERO, CK, 
SEFF LO A141 
1LB04 AR LMNS 1 
NOT? 
ZERO? s SREPLACES THE aT Cai. k AT (HL) 
a THE BOOLEAN VALUE x = 0, 
PPRESERVES DEHL 
. $3 CRPRESERVES Bir] 
CH2402 RK CALL TESTO 


1805 JR ST een? 


NUMBER XA} 


L. a HLA 
INC HL 


th HE aA 
Por HL 


MINUS 73 3 Ak T CHL) 
3 ACWLEAN VALUE X < 0, 
; AL. : 
7 
AF 2 XOR A 
23 LNNSts ING HL 
AE XO CHL) 
ba) BEG HL 
O7 ae RLIGA 
STECOL s sHERE To REPLACE THE NUMGER AT (HL) WITH @ (FALSE) IF CARRY 
: R, 1 (TRUE) IF SET 
‘ | PRESERVES BCTEHL 
ES PUSH HL 
SEOO LO AsO 
77 LD (HLA 
77 ‘aie yA 
253 TN HL : 
1? RLA 3A t= 1 IF CARRY SET ‘ 
77 aa (HLA i 
iF RRA 3A t= O 
23 INC HI 
4 
7 
1 


Pinas 


ar re cE Se, So eae oo OR SC 


sw Sale CALCULATOR, CALC 11/23/1°82_TCC FAGE 1 


Ob CODE -M STMT SOURCE. STATEMENT ; ASM & 
O255 cy RET 
t(HL) t= CHLY GF CDE) 
7X OR Y = IF _Y HEN in SEX FI 
3 «*x 2YLESS Y Ne bEeey CASE 1° 
sY 13 cone TRUE IF IT 1S NON- zfs. 
et fs SSMASHES ARC 
ER EX BE,HL 
Cn24or R CALL TESTO 
ER EX DE,HL ae x 
LS RET Cc SIF RIGHT GFERAND IS FALSE 
37 SCF 
15E7 JR STEOOL 
NOANDs PNUMNERICAL AND. CHL) 3 = (lt: 1; AND (DE) 
' $X AND Y =_IF Y THEN X ELSE 0 FI 
$0 4"X TF OY - ELSE O), 
: GS SMASHES ALI 
EB EX DEH 
‘CNS402 K CALL TESTO P . 
ER EX DEHL . eens : 
jays) RET NC SIF RIGHT GPERAND IS TRUE : 
A7 AND A x 2 
1ebeE JR STEAL SWITH CARRY CLEAR 
7 
1010 STGAND: sSTRING AND. CHL) &= CHL) ANT ATE) WHERE 
1041 + X$ AND VY = IF Y THEN X$ ELSE "" FT. 
1012 "i SMASHES A. ASSUMES DE = HL+S. 
EB 1013 EX DE, HL : 
CH240z2 R i014 CALL TESTO 
ER 1015 EX DE,HL 
Te) 1014 RET NC s1F (DE) TRUE 
ps 1017 FLUSH DE 
1£ Pe DEC DE 
AF 9 XOR A 
12 i LD (DE), @ 
1G 1 DEM Te 
{2 i LE (EA 
a 1 POP DE 
cy i RET 
1 CMPRENs GPE ee NUMERICAL OR STRING COMPARISON OPERATION 
1 a ae OR = IN (GREG) & BOON THE TOP TWO GN THE 
1 3 C x Ce CAFTER STEEWN), LEAVING A RESULT © 
1 3 Roi (TRUE), 
i ; s NUMERICAL COMPARTS SMASH ABCA‘ FSR CDE’. 
1 3 STRING ¢ COMPARTS0ONS : 4 ABC 
73 1 LO AB 
D608 1 SUE ANI 
CES7 1 BIT 2A | 
2001 1 WR NZ» LONE 
3b 1 EC A 
1 LON: STHE OPERATION TS NOW CODED IN A AS EO aes = 
4 ; Orde? FOR NUMER TC AL <=, =, CD 
1 , 5 a3 76 FOR NUMERICAL 2, < 
104 #) 3 f . a 
1041 3 
1042 ; & lst 
1043 5 BE THE QFPERANDS. 
1044 ; NG TESTS, 
1045 3 § OTHERUT: EO 
1044 ; ANSWER, 
QZ7E OF 1047 RRA 


QO27F SOR 1043 JR MG, LONS 


PUCKETT CALCULATOR. CALC MI/S3/ 1782 700 PAGE 14 


Lit ORG CODE M STMT SOURCE STATEMENT ASEM 5.9 
FS PUSH AF ; 
ES PUSH HL. 
£07701 — RK CALL. EXCH ‘ 
fil POP. DE 
EE EX DE, HL 
Fi. Gye Roane 
CHS7 LON: BIT 
2007 ay Nz; * Bone SFOR STRI ING COMPAR T SONS 
OF RRCA 
ES. PUSH AF 
CHOQOO x CALL ee 
L333 AR LNY . 
LONG: HERE FOR STRING COMPARISONS. WRITE & a FOR LEFT OPND (2ND 


E- 
FROM TOF) & RIGHT GPND (TOP GF Slack) 
A&A = MODIFIER CONE, ROTATED RIGHT ONCE 


3 
® 
h 
HM 
H 


OF RR b 3 70 TEST =. NC TO TEST >. 
FS RUSH AF . 
CDAoaa X C POR STR . 
bs a PUSH DE 
Cs FUSH Bi 
CDG x CALL U POPSTR oh 
El 7 FOP HL 
a] THERE BC & HL = pe THINe pe eeiie OF S& T. DE & (SFP) —> 
3 CURRENT CHARART : 
a Sari RANE TEE te SRCTATED RIGHT TWICE, & FLAGS C TO TEST 
5 ia) = 
LO AH : 
OR LL e bs 
Fe CSP) > HL. sHL ¢--> T CHAR. (SF) t= LENGTH GF T LEFT 
ar ead 2IF STILL SOME T LEFT 
pak & . 
Por ; 
“IR 7 TONA4 TF RUN OUT OF BOTH S&T .. : 
FOF AF wise SEITHER & LEFT BUT. No T> oR S CHAR > T CHAR , : . 
CF agi STRUE FOR >, FALSE FOR =, : 
"iE: LON& 
FOP AF: sRUN GUT OFS & TF ieee 
AR LANE STRUE FOR =, FALSE FOR >, 
re ; oo 
AR Z.LOn7e S1F RUN GUT OF & BUT NOT Ts FALSE 
Li A, COE) 
SUB (HL) P ees os 
JR C,LON7S - sIF & CHAR < T CHAR: FALSE 
IR yy 2» LIONAS 31F & CHAR > JT CHAR: TRUE FOR >, FALSE FOR =. 
Lie 
INC Hl 
EX (cP) HL 
DEC Wb 
AR LONGS 
‘ LON7S: FOF BC 
11035 POP AF 
1104 ANT & 
ee LIN eS SHERE TO STACK © (FALSE) IF NO, 1 (TRUE) IF C 
Oi f 
1109 9 
1110 70 
111i1- ry 


oN 


es 


POCKET CALCULATOR. 7 CALC V1/23/1982_ TCC PAGE 
(ta Ob! CONE M STMT SOURCE STATEMENT AEM 


F LON@s FOr AF 
; PUSH AF . aus ie 
CALL ¢, ZERO? POR <>, = 
Pe AE 
FUSH AF 
CALL NC PLUS? - 
FOF AF 
RACA 


CALL NC, NOT SFOR <=, 2s, > 
RET : 


mT 
Pe 


aon! 


“SCO2Z K 


RK 


ome Te 
rey 
= 
fh 


Tt 
SEND Suits 


Pe et tee tet fe pet ek tt tt te 
SeLamiamhantantambentont action 
PEt te rae et te ee 


abe 


SEND OF CMPREN. 


& 


arc 


FOUKET 
Loc 


OS19 
O31 


CALC LL/23/1782_TO0 PAGE 14 


CALCULATOR. 
OBI CODE MN STMT SQURCE STATEMENT 
24 ¥EJECT 
6 CCNCATS 
27 


is. 
GS 


MOOOC , 


ZASLIEC 
ES 


ah bee tee me fet pre eee fet fem et eh eet fe fe fee pee pak fh Seek Beh Det See fs fet ft fet fe fh fh feet em fees fm fh mie ph fm feth pt fh fetes sh feet pees fees Se ch eet fh fe fem fh fea ch fs 


ed 


habs 


ia 


= 


1 
1: 
1 
1 
1 
1 
1 
1 
1: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

1 
1 
1 
t 
14 
1 
1 
1¢ 
Lé 
t4¢ 
1 
Lé 
1é 
- 
1 
i7 
1 
1 
1 
i 
‘ 
1? 
1 
Le 
1&: 
Liz 
1é& 


t, 


SONGUSuIE S 


SS 


ADL 
ae bs 
l.. Be 


Par Ae 

. Lo ALE 
OR o 
JR Zr LeT2 


‘LeT2s 


iS SHSESHEHS Lh 


e 
1 


ratate 


STKPTRE 


NOU BUR DS NEL Lah 


me 


CHR: 


LCHRG: RST ERROR 
RST ERROR 


DEF E 10 


U tae (Cc VM. ALT) 


ERT “VAL 


SULT. 
CO .MOT. (VALS. 


+ (= 
NEXT FREE PLACE ((STENX 


ASM 3.9 


IREFLACES TOP THO STRINGS CN CALCTE STACK BY THEIR CONCAT- 
+ ENATIGN, WHICH IS WRITTEN IN A 
S_SMASHES ARCHL. 


SPACE CREATED BY COPYUP. 


Do 
‘ 


SIF 157 STRING EMPTY 


SIF 2ND STRING EMPTY. - 


TOF OF CALCTR STACK ¢ a 


RAND (OQ BG 
ERAND ~VE 


mm 


SERROR 6, INTEGER GUT OF RANGE 


VAL & SVAL VALE 
5 = CALCTR INSTRUCTION COpE 


UL VAL ) 


opoM ae 


Sey pe oe 


real CALCULATOR. 
Lo Ob! CODE M STMT SOURCE 


Fars 6E 
oF oe 
: pry 
Boe 100 xX 


LS 
O3 


FOCEO 
CHOC 


Xx 


ToS P SS me tm te dete Sek pet eee ea fete fet fee ee te 
Part teks Le Os] note get ds 
i 


an 


fe fet feet fh fh fh faa fr ct Pets Pee fh fh Penh fh ph pe 


DF 

F EOD 
2O07 

et 


E hago 


LVLSs 


CLINKY:s 


FE1O. 


a bee pee Peet fet feet feet fa pete 


cn 


“ALL 
STATEMENT 


11/23/1982 700 PAG 
ERROR IN ASSERTION VALS. ULT. VAL. 
ENDE : 


5A = -1 FOR VAL, © FOR VALS 


“SHL. ¢-> BEGINNING OF STRING 


TENNTAX CHECK ~ CONVERTS CONSTANTS 


5 exe jf 
eT IGHLEr 
CP NL 

oft ae reves ba) SWHENCE SY Ne 


< TF STRING LEFT QVER 
wHL 3--> St 


RR V2 
ART GF EXFRESS10N 


31F WRONG TYFE 


LO CCH. Syne 2HL RACK To BES TRIN TING 
SET INTPT: (1Y-Y+FLAGS) 
CALL EXPAN SEAL LIAT TN 


Lo eee HL $RESTORED TO ORIGINAL VALUE 
JK STEPTR ° 


STEAL oF TO ea SCREEN 

LE Bit. d 3WE NOW SEPARATE CE. Re) FROM (STKEOT) 
RST COPYUP ; INNECESSARTLY ELABORATE). 

RET COPYUF 

yi GURL 


LD HL» CCURCHL ) 
PUSH HL 

LO A, HIDLR 
CALL SELECT 

C = ALL QUITEUT 


HL 
CALL SELL 
POP DE SDE t-2 BEGINNING GF STRING 
Li HL» (KCuUR) : 


fh i, : +BC t= LENGTH OF STRING 
CALL FPSHETR 


EX GEHL 
RET 
3 INEEY SH 
CALL FIX 
Cr 16 


“HANNEL RTO WRITE THE CHARS AT (KUCUR) - 


;COPY STRING TO WORK AREA, THEN NL AS TERMINATOR 


(SEEMS 


O200agd 
SAS 1S 
ES 


CHIC 
VF AOR 


4 
CHAI 
= 
we 


i BOGGG 


y CALCULATOR . 


Ob CODE M 


X 


Pa 


CALL 
y SOURCE STATEMENT 


JF ONG, ERRG 
arate CCURCHL > 
ALL SELECT 
CALL INCH 

Li Bw 


LCYS: . 


CODE: 


at 7 
OR 
, 4K Z>L0DE2 
iB. A: (ie) 
LODESs IF STRLA 
LEN: CALL FOR STR 
JP STK BG 
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AEM 5.9 


IF STREAM NOT IN RANGE O TO 15 


. 


FANSWER IS O FOR EMPTY STRING 


FOCKET CALCULATOR. ; CALC VV/ 23/1982... TOR PAGE eo 


Loc Ob) CODE M STMT SOURCE STATEMENT : SM 3.9 
1267 HEVECT 
1 LOOF s SDECREMENTS CBREG). IF THE RESULT IS ZERG, THEN SKIPS OVER 
1 3 THE FOLLOWING aig veld BAL OTHERWISE, READS THE FOLLOWING 
i i INSTRU TION AS BN 3--RIT wore INTEGER & JUMPS THAT NUMBER 
1 3 OF INSTRUCTOINS RELATIVE TO THE BYTE CONTAINING THE ANT- 
2 1 + EGER. (THIS 12 QUST LIKE ZILOG TuINZ.) 
ty 1 EXX 
ES en 1 PUSH HL, Pad n 
P1675 12 Li He Beets Ree : 
BS 12 DEC (HL) 5” 
Ei i POP HL t27 5 en ae 
2004 1 JR ONZ. JUMP 3°° $1F (BREG) NOT= © 
2a 1 TNC HL. me 
be 1 EXX 
CF i _ RET ~ 
1 MUM 5 GREASE THE FOLLOWING eR AS AN S-BIT SIGNED INTEGER 
1 & WINES: THAT NUMBER GF INSTRUCTIONS (LIKE 21tG JR 5 
t SERVES HEH. SMASHES fi E’, oes HAL’ AS CAL LOTR FROGRAM 
0s . 
re 1 PCPRESERVES BCI . 
Ly 1 EXX 
HE r AWMP As LE Es CHL) i: 
76 1 LD ALE a 
17 1 RLA ao 
oF 1 SEC ALA yee 
87 1 LO mA aes é 
1% 1 ADD HL DE 3“ ° 
ie 4 ’ EXX 
ly i RET 
1 IF JUMP: SREMOVES THE TOP OF THE “CALCULATOR STACK. IF ITS SRO BYTE IS 
1 s NON-ZERO THEN READS THE FOLLOWING INSTRUCTION AS AN 
1 $ S-BIT SIGNEM INTEGER & JUMPS THAT NUMBER OF - INSTRUCT ICNS $s 
re i ee He i OTHERWISE SKIFS OVER THE FOLLOWING INSTRUCTION, 
3 « Die - 7 
13 1 INC DE 
1A i LU A, (LE) ’ 
1b 1 DEC DE 
18 1 DEC: vig 
A7_ 1 fit 
2OEF 1 wR ne, JUMP 
by 1 XX Luks Bch Rn ai ih alana 
yak 13 ING HL 3°° $SEKIF THE NEXT INSTRUCTION BYTE (OFFSET). 
ie 1: EXX : 
Cy : RET 
1: GUT Ts RE eeenO CONTROL FROM THE CALCULATOR TQ THE Z50 
1: OF ae: SPRESERVES BCDEHL, HL’ *= 2ND FROM Tor OF M/C STACK. 
Fi 1: FOP AF 
Le 1: EXX - 
ES 1: EX (SP),HL sSETS NEXT INSTRUCT TM AS RETURN ADDRESS 
209 Dy 1 EXX SHL’ RESTORED TO ITS VALUE ON ENTRY TO CALCTR ; 
Osta CH d RET 
1: SEND! OF CALCTR 
13 END 
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Loc” OBO COME M STMT SOURCE STATEMENT ; i ASM 5.9 


#HEADING MATHS FUNCTIONS 
#LIST CIN . 
GLOBAL INT, EXP. LN, SIN, ANGLE, COS, TAN, ROOT, TO_THE, INTDIV, ASN, ACS, ATN 


EXTERNAL STKA,FREA, STE_BC s INGUIT 
EXTERNAL FLOAT s SLUMS 


INTDIVs SREPLACES THE poe THO ON THE CALCULATOR STACK, X & Yo BY 
(3 X MOO Y & THE INTEGER QUOTIENT INT(X/Y). 

3 ON RETURN DE & HL ARE CALCULATOR STACK POINTERS. 

3 PRESERVES B ss HL? 

3 SMASHES ACATE RCo D 

1 ses CALCULATOR MEMORY” O; MAXIMUM STACK DEPTH = 3. 


3X) 


oud EF 
ce 


mm 
seae cee 


mz 


OOE 
{ OOE cy 


et 


Ci 
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Lot. OB CODE M STMT SOURCE STATEMENT ASM 5.9 
#EJECT 
INTs S REPLACES ae TOP OF THE cate UL ATOR STACK BY HS ens 
5 FART. INT(X T= X < INT(X) +1, 20 (E.G.) INT(- ad 
3 Sane een: bn Or OF CAL CULATOR STAC KD & De gn NEXT SEREE 
3 SPAT 
$ ° ARE 
5 AA” if “fi “ 
5 UU = NEMORY 3 - MAX TMU STACK NEPTH = 
. egret X = THE ORIGINAL TOP OF THE : tack 
CTR 
OOF r 
Oo1d 
oot 
ools sIF X < oO 
OLS 
O14 
Ouls 
OO 
QO8O17 Bt Litas . 
OOS 3A 7 
” co sMEMORY O f= PRUNE (X) 
cng 
EQ 
OL ‘ 
30 : 
oOo 440 SIF X IS AN INTEGER (< 4). 
oO 441 : 
Al 44Az - il m 
Oo 443. $ TRUNE(X)-4 
3g 444 LIT4: - 
cy 445 
444 oe 
447 | sENO OF 


MATHS FUNCT CONS 


Lac OB CODE bo STMT SOURCE STATEMENT 
¥#EIECT 
EXP: 


oeae - EE 
7E 


x 


7 
7 


HS 


FLUINCTS “AL/28/1982_T00 re 


REPLACES T 
OM OF R 


eT sal tal STAC meet = 4, 
ga he tELY THES Aa NS Cd TIME). 


z Hohe INTEGER & FRAC de ko PARTS N & UO. THEN 
EX e (N+) #LN 2 EXP (fla! 2) % ZeeN. 


3 
3 
i 
3 
5 


{I/LN 2 = .BGAA B29 # 2 


SMEMORY So t= N. : : ' 
STOP OF STACK f= Dh. : 


“3 70F OF STACK = 2an-1 FOR CHEBYSHEV ROUTINE. 


sACLG] = .80 # 244-34 (REMOVED) 
3AL7] = .B4 & 2eH-2 
SALE] = ,ESA4 -  * Bee 24 
A, 
GACT] = .FELS 40 # BeH-19 
ACAI = .EO32 09 © # BHHe-14 
$ACS] = .AIF7 AFS4 # BHH-> 
SALTZ) = .AFRO HO14 © BHHe—S 
one 
244i 
+ OC OHS SALLI = .FEBR 7458 # 2Heu-o 
7E. 
= .BA7E FaCF ¥ 2 


i ¢ 
DEF OL ; 
pee s= EXP(DeLN 2) CIN RANGE 1 TO 2), 


sTOr OF 
DEF MEMORY 5 
BEFE QUIT 


CALL FRZA 7A t= N 

JK NZ, LERS ;IF NCO 

JR CLERRS SIF N OVERFLOWS 

, yy saree ones wom a? 


en 


wn rn 


oe 


TaN 


on 


harivs 
wii 


» O60 


NOEL 


COATS 
OO64 


GOS ri 


OUAE 
QOAF 
0070 
OO7 1 
OO72 


FUNG T Tons 
Ch) RAW ee i) ‘M STMT 


tid wid 

2009 S12 
S13 

LF oe 

Oe £14 
SAS 
S1é 
S17 
1s 
a ed 

oy evan 

“cy 

EF 

a2 

AQ 

ED 


ERR: 


sEND OF 


AbD 


JRONG 


ie Cc 
i (Ne 
NE 

LD { 


DEFB C CNET +O 


THE]: Es 
RET 


EXP. 


FUNC TES: 
SOURCE STATEMENT 


fy ys 


ra 


dit) 4 
(> LEEF 4 
HLA 


GUTT 


LI/23/1982_ TOG F 


re OVERFLOW 


3 UNLESS 
GR 4, ARITHMETIC. OVERFLOW 


FER 


SUNTIERFLOW 
sIF NDS CHL) 


FELSE UNDERFLOW 
4 aaa ULATED .MANT ISS 


-- 
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Loc Ob CODE M STMT SOURCE STATEMENT AGN S. 
#EJECT | 
LENE IREPLACES THE TOP, uh oe CALCULATOR STACK BY ITS NATURAL © 


$ paged Ala 


[CALCULATOR STACK FOJTNTERS. 
ALITA FRAT E- 

| G3 MAXIMUM STACK DEPTH = &. 
43 MS (ZxXa0 TIME). 


(ELY TIME)» 


Ec cstoey ier bats 


‘ | 

EF ae Re | 

3b o aT 

31 © 2 | 

27 1 UST af 

HO - 2 EPR TP IUMe VIF ARGUMENT > 

04, 3 DEFER LILNIS-* . "t 
O79 3S 4 DEFL QUIT 2 it : 

a fe ERROR SCALL ERROR VALID ARGUMENT. 

OU7A Cr - RET ERROR 
OO7B OF DErE o 


LUNIS: | 


le X_BE THE MANTISSA J, 20 THAT 172 4 
HE BASIC ALGORITHM TH CALCULATE & x 

XPONENTs HOWEVER.) APFLIED NATYELY THIS LOSES A LOT OF 
Y FOR Ws 1 OR WWE) GREATER. TO AVOID THIS WE USE A 
HEV ROUTINE THAT ragiey ibe CEN IA UX-1) WHERE 

<= 2A FOR SOME A_WITH A <1 2A, & SO FIRST _IF 
E: 7 A WE MUST MULTIPLY xX BY Tie & DECREMENT THE 


NE. 
ag GOOD VALUE OF A FROM THE ror OF VIEW ee CALCULATING 
See MOEFFICTENTS IS 4/7 WHICH WE Ue: 
27 $0 SsTHTS ITS FOR THE CALL. SUMSLO A CITTLE LATER. 


DEF Bs T ;NOW Meee 

LO A. CHL) -$A 3s 

* ) LLNS: Lt (HL) doe F EXPONENT : 
CALL K SSTACKS OFFS 


- 
2 
ay 


OI 7E 


X 


$128 = .f 2 Saw 


STOP OF STACK 
STOR OF STACK 


94/5 = .C°CC COC # Zao 


EXPONENT 
xX 


SIF X > 4/5 
sEXPONENT ON TOP 


30FP SET EXPONENT OF X t= 129 


LLNS: 


3LN 2 = JR172 17FE # SHeKno ‘ 
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Lol OBI CODE M STMT SOURCE STATEMENT 

OOFF FO DERB OO ne 

ODA S172 DEE W cS HA eS4 

QOAZ 17 DEKE 

OOAS FS DEF Et 

OOA4 a4 DEF B 

OOAS O41 DEF 


+ OOAS AZ 
OORT Lig 


OORQO 


OOBI Pai i 


SING CR Le Ne 
woe we 


ed ee at a 


OBS 1l 

Oui ACG 

OOE4A 14 

OORS — OD i 

HOB 4 
B7 Ly ) 

ORES AS 

OO? See. 

OOBA Bo 

oki CS 

ORE bart 

Car) a] 0) wid 


un Nee AA 
Bo 


~ 


SPARS Pea 


q be : 
Oopea 
Ooug 
Oong 
COOKE 


Aol 22 
ODE 

ve nH 
 AOH+25 


( GH 
Ge Sate 30 


Ter 


THE MUL TIFL 
ou lea saab 


SAL IZI5 


sALI1I= 
sALLOJ= 


sAL#] 


sAC3) 


sAC7I 


tA 
Zo Her Hee 


i 


E 


2.700 


JE 
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/2 
TOP OF STACK 
BY SHEY ROUTINE EVAL MATES 
-ATED BY MYSELF 


+. 0A 


—.DAAS. 


+, BODS 


-. 2OARA 


+. FO6F 


~. CELA 


+. EOF 


-. AOFE 


1.9 BAS CAL 


~ ATE 


R X- 
3 T 
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TAQ # 2H#Hez 


+.EEZ3 809 


72H ( 


cd 
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vt 


1 UNDER THE 
O PRESERVE ACCURACY WHEN X TS 
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(X~1 


y-1/ 
CLIN Xd7¢ 


ee 2S 
Bee 
Pew Ze 


Bea—Zh 


SH 1S 


PRH-1S 


2HR-1Z, 


ee 


The He 


2H 3 


SHED 


TOE “OF THE STACK. THE 
MUST 


(2 = 8/2 


25 BUX 
X-1). COEFFICIENTS CAL- 


(REMOVED) 


SPtg Yee ne ete neg 8 


HATS 
Lit: 


q 
OES 


FUNCT TONS 
Cnt CODE M. STMT 


04 
OF 
sig 
CP? 


FUNCLTS 


SCWRCE STATEMENT 


DEFER TIMES 


DEFER ADL 
DEFR GUTT 
RET 


WEND OF LN. 
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Loc Oh CODE pl STeit SOURCE STATEMENT ASM S19 
#EUECT 
ANGLE: SREPLACES TOP, X. OF ee STACK BY Y. WHERE 
3 7-1 f= Y C= +1 & SIN X =_ SIN (FI/2 * Y). MEMORY ©O t= TRUE 
$. = IN Bae SND OR 2R0 QUADRANT (1.6. IF cos XxX = 
3 FPI/2 * Y)), ELSE MEMORY 0 3= FALSE. 
3 STURN, DE & Hl. ARE CALCULATOR STACK POINTERS. 
3 ESERVES B® HI? SMASHES ACA‘F“BSE“DVE’. 
‘ Lim STACK DEPTH = 3. 
EF : CTR 
SD aw AN) mt Ay ‘ 
34 71 = SA/(CSHFI) = LAZF9Y SLE & ZHH-s 
EE 7 at : : 
22. TS 
FY nT 4 
BS4E was) 
o4 74 
31 77 
Az Ly Fis i.S 
OF 7? ; 
ca 27 we) 
OoOFO (ae 1 
Qor 1 31 
Coe OF 
i Bs | 
OF TOF OF STACK = xX“ (SAY). -2 <= X* c= 23 X 14 CON- 
: 3 GRUENT WITH PI/2 # X° (MODULO 2ePT). 
A NST +t 1 
aX“, \X*%N-d, \X“\-1 ON TOP 
OORC OIF \KX“N 3D 4 . 
oor Ls 
OOFE 
OOF F 
100 
LAE2: il 


oss 


I\K“\-Z, X’, 
sIF xX" < = 


3 
709 sEND GF ANGLE. 


ats) iTOP OF STACK f= B-NX“N & BHX~, 
706 LAER: + (ELSE Tor (FF STACK = AK“\-2 5 
Ae 

Or 


Pa 


MATHS 


Loc 


Golda 


O18: 


O11is 
L146 


OV17 . 


Olgs 
oli? 
LITA 
O11 
O1ie 
o1ite 


QLLE 
OLE 
O1Zo 

ist 


Ob COE M STMT 


N 
ros 
val 
o 


cr 
u 
ee 


ANNAN 
ian) 


13 ae ee eet pet peat tee pt Bet fee 


OON PU ible 


; ae tay 


SMM D PDD 


7 
7 
2 
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7 
7 
$5 
5 
Z 


' 
at 


GEeGa 


—- 


Cyt Th cfie ee ee 


PDeDes SOs oT 


eh eel 


rn 
wt 
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SHELA SLHDi 
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SOURCE STATEMENT ASH 3.9 


sid THE TOP OF THE CALCULATOR Stack BY ITS COSINE. ei: 
TURM DE & HL ARE CALCULATOR STAC 7 ‘POINTERS. 
WES OE & HL“. SMASHES ACACE “Rc TE - 

UN. te MEMORIES. G.1 & 2 MAXIMUM STACK DEPTH = 


ae & LET Y RE PRODUCED BY ANGLE. 
[ x SIN (PI 73-0) = SIN (PI/2#(1-\Y\)) IF X IS_IN THE 
RK ath CHIADIANT » SIN (PI/S"(.-N\Y\)) TF X 1S IN THE 2Nf 
Y GUATRANT. ° 


HIF ARGT WAS IN 2ND GR SRO GUADRANT 


CES THE io OF THE CALCULATOR STACK, 
PRE {RETURN Bee” Hews guts eis aight 3 a aan 
$ fis 


DarYaeae 1 ON TCR. 
ar ee FROM C.W.CLENSHAW,  “CHEEYSHEV SERIES 
ATICAL FUNCTIONS’, MPL MATHEMATICAL TABLES & 

a JEG % Dee Ee 

= + | FOR % PRRE-TO 

= .OF32 EE 2ewt3! 


s+ . 9863 BEES 4 Zew-7 


SB - .90D CHED # Zet-2 


-ASSD 1BEA # 1 


ii 
+ 


%* YY) / YOON TOF OF STACK. 


on 
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Loc ORI CODE .M STMT SOURCE STATEMENT : ASM S.% 
772 a thew 
: 333 SEND OF COS & SIN. ; 
7 TAN: SREPLACES TOF OF THE CALCULATOR STACK, xX, BY ITS TANGENT. 
7 ; s ON RETURN ge & HL ARE CALCUL ATOR as POINTERS. 
7 5 FRESERVES HL?, SNASHES ACA*F- “DE? 
a Lee CALC ATOR MEMORIES O — 33 Max IMUM STACK DEPTH = 4, 
“TR 
EF e “TR ; 
Sh 7: 
1F 7: 
C4 7 “H 
20 7i : 
as 7i 
Cy 7th 


“t 
i 
: 
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Lio Ob CODE M STMT SOURCE STATEMENT ASM 5.9 
37 *HEUECT 
7oy  ATNG REFLACES THE TOF OF THE CALCULATOR STACK BY ITS INVERSE 
7?0 TANGENT. 
7A ON RETURN DE & HL ARE Po tease pag POINTERS 
722 PRESERVES & Hi’, SMASHES ACA“F’R-R*n-E- 
723 = MEMORIES O11 & 23 MAX INtIM ET ACE REF TH = &. 
774 ES AT MOST GOMS (ELY TIME), 40 MS (7x80 TIME). 
O14s COOOdG X 7S Ne 
ota 7E £28 § hte USE CALCULATOR COMPARISONS?  43e4 
OLAS 7277 : 
O14 a4 “SIF EXPONENT <= 0, T.E. TF \ARGUMENT\ < 1. 
yl t . 5 
O14A EF = 
Al. aly) 31 
1B 1 
O1 2 
On 3 
31 a4} 
34 bal 
AZ oy sPI/S ‘ 
O1 7 
Oo ay 31F ARGUMENT 33 4 
Od B07 
ibs ate STOP OF STACK 3= -PI/2. 
33 ba ; ' 
3 B12 
mics 
S14 Lats 
EF ‘ . 
AY S15 7 
4 S16 LATS: 
31 S17 
31 S18 
O4 aig. 
ce ") 
OF 
Al 
‘ O83 


WAS THE. OR TGIMAL ARGUMENT . & TEFINE X“ TO BE 
1 & ~1/X TF \X\ b= 1. eles AL QO BE OO IF 


72 °IF X os 4, & PISS . THEN 
iy _& ARCTAN X = A + ARCTAN Xx? 
STACK = A, ZUX" HRI 


1E EV ROUT INE FOLLOWING EVALUATES PARE TAN X)/X5 
COPFICIENTS FROM CLENSHAW (NFL). (SEE 


A 
O12 CHSVriZ 
01463 14 sSALLII= -. Bo # 2HH-TD 
Oleg a ‘ ‘ 
OLES SACLOI= +. 56 e WE 
OES 
O167 SALTS] = ~.E4an % DH S7 
OLGS 
OLe2 : Ae es z . 
SACS] = +, BYE eH BHM BG 

$AL7)] = —.2SFo Ce Scere | 


BoS4 7S % 2eHe-15 


“ 
> 
a 
a 
mw 
i) 

+ 


SACS] = -. OBES E4 e SHH- 14 


Ine ea eae at tee 
SK TIMMS L 
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Gk CODE M STMT SOURCE STATEMENT AZM 5. 


we “Ei ODBH 


sAL4] = +.0204 OO H SHE- 1S 


OS ob ise OF 


| 
apts 3AC3) = -. B50 SARE # 2HH-10 
H+ OPH 254 

x, 


SACZI = +.8473 IESD Zht--7 


Tree LT OI MT eT 


CAC IT hy 
PANG . 

~ 

2D 

onl 

- 

wt 

i 


~~ DSDE 42BE *# 2eH-4 


Le 
. DEES HESS 
BE oe 
Fo SACO] = +. £1A1 B30C 
1 Pd 
Al & 
B300 8 +OCH¥ZS4 
O4 é ® 
OF 3 
ao & 
Cy 3 
ps 
& SEND OF 
ey ASN: THE TOF OF ‘SHE CALCULATOR STACK BY ITS INVERSE 
a RETURN, TE & HL ARE CALCULATOR STACK: POINTERS. 
1 RESERVES 5. Be HL’. SMASH CA VE 
me: sLET = SIN X BE THE TOF oF THE STACK 
O193 «EF 
‘ 31 
31 
4 
Al 1 
os 
10 
2o 
Al il 
or pPS/CL4CL-GHS C172) ) = TAN K/2 
re | 
OF 
\ 3S 
OLAS Cy 
sEND OF : 
AGS: acks THE TOF OF THE CALCULATOR STACE BY ITS INVERSE 
ME TORN BE & HL ARE CALCULATOR ee cee 
SERVES & HL”. SMASHES ACA’ BS Bn’ DCE 
OLAS EF 
he re 
o 3 SFI/2 
O1AE 08 aehe 
Q1A7 ib FG N GATE 
OLAS 3 bere cui T 
OLA? Co RET 
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Loc OBI COBE M STNT SOURCE STATEMENT : ASH 5.9 
; 11 
GAZ : 
ate ROOT a THE TOP OF THE CALCULATOR STACK, XxX, BY ITS SGUAKE 
<1 
PS § eit RETURN GE & hed ARE EAE CULATOR STACK EGINTERS, 
VIA 1 PRESERVES BH & HL SMASHES ACA“ F ‘RR’ rr’ 
IAT petit REPLACE Witt! ‘NEWTON | RAPHECIN ECILIARE FRA IT ewe 
PAG RST CALCTR 
OLAA T CALCTR 
OLB a4 rae 
Opec 
OL1AL 31F ARGUMENT TS ZERG 
Omak 
OLAF i s1/e 
O1EO . BEFE Gai T . 
TOW THE: aay nage (ES THE TOF Two, X & ¥Y» ON THE CALCULATOR STACK BY 
or, RETURN DE & HL ARE CALCULATOR ETACH : POINTERS. 
3 RVES Hi, -SMASHES ABCA’FR Cc’ D- E° 
5 USES CALCUL ATOR MEMORIES 0 = 43 CMAXTNUM STACK DEPTH = 4. 
3 PUT IN INTEGER POWER CODE «#% . 
OLKL 
OLB 
OL bs 
O1R4 
O11 sIF X =O, 
Ons . 
na et sHERE TF X NOT= 0. LN THROWS US GUT IF xX < a. 
Pee wate it | oe 
OLB? NEFB QUIT 
OLBA JP EXP . 
CEL LPR: ee EB oan “E sX = 0. Y LEFT ON STACK: WE CALCULATE OH, 
sIF Y =O 
30 = OH#Y IF Y > 0, 
iF Y3o0 
se 
LPR3t S THROWN GUT WITH EXPONENT OVERFLOW. 
peel “s1 = Owen 
LFR4: 


O1ets 


SEND OF TOLTHE & ROOT. 
VS EN 

2 CVERLAY AT O40A IN TAPE — 

E AVERLAY AT O4OB IN TAFE 


E E OVERLAY AT 1CA& IN SYNTAX 
CODE OVERLAY AT 10A7 IN SYNTAX 


LIK 167 
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LOAD MAP 
MODULE ORTOIN LENGTH 
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to 
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